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PROGRAMING  PROCEDURES  MANUAL  (PPM) 


The  Programing  Procedures  Manual  (PPM),  USACSC  Manual  18-1-1,  prescribes 
procedures  to  be  used  by  USACSC  programers  In  developing  and  maintain- 
ing multicommand  and  Command-unique  ADP  systems.  This  edition  of  the 
PPM  Incorporating  changes  1 through  6 Is  designed  as  a stand-alone 
volume.  In  addition,  a section  on  FORTRAN  has  been  added. 


In  view  of  the  emphasis  by  General  Services  Administration  (GSA)  that 
Federal  agencies  comply  with  Federal  standards  (FIPS/FED-STDS)  In  the 
procurement  process,  effective  January  1,  1979,  all  COBOL  compilers 
offered  will  be  validated  on  a scheduled  annual  basis  by  the  Federal 
Compiler  Testing  Service  (FCTS).  Also  all  new  acquisition  of 
COBOL  compilers  by  USACSC  will  be  in  accordance  with  the  ANSI  COBOL 
Programing  Language  standard  ANSI  X3. 23-1974  or  subsequent  to  that 
release. 


ACKNOWLEDGMENT . The  following  is  an  extract  from  the  COBOL  Journal  of 
Development,  a product  of  the  CODASYL  Programing  Language  Committee. 


COBOL  Is  an  industry  language  and  Is  not  the  property 
of  any  company  or  group  of  companies,  or  of  any  organ! 
ration  or  group  of  organizations. 


No  warranty,  expressed  or  implied,  is  made  by  ar.y  con- 
tributor or  by  the  CODASYL  Programing  Language  Committee 
as  to  the  accuracy  and  functioning  of  the  programing 
system  and  language.  Moreover,  no  responsibility  Is 
assumed  by  any  contributor,  or  by  the  committee,  in 
connection  therewith. 


The  authors  and  copyright  holders  of  the  copyrighted  material  used 
herein  have  specifically  authorized  the  use  of  this  material  in 
whole  or  in  part,  in  the  COBOL  specifications.  Such  authorization 
extends  to  the  reproduction  and  use  of  COBOL  specifications  in 
programing  manuals  or  similar  publications. 


NTIS  GRAAI 
DOC  TAB 
Un.Tuwounced 
Justification 


D is*  ributi.cn/ 


Avrli nbi ? 1*t  Codes 

Avail  and/or 
1st  J special 


CSCM  18-1-1 


] FEB  79 


V 


FLOW-MATIC  (trademark  of  the  Sperry  Rand  Corporation) , 
Programing  for  the  UNIVAC  (R)  I and  II.  Data  Auto- 
mation Systems  copyrighted  1958,  1959  by  Sperry  Rand 
Corporation;  IBK  Commercial  Translator  Form  No.  F 
28-8013,  copyrighted  1959  by  IBM:  FACT,  DSI  27A5260- 
2760,  copyrighted  1960  by  Minneapolis-Honeywell. 


(J 


\ 


I 

i 


1 FEB  79 


USACSC  MANUAL  18-1-1 


CONTENTS 


Paragraph 


I ” 


m 1 1 

* / 


Chapter  1 - USACSC  Programing  Procedures 

General  1 . 1 

Introduction  1.2 

Chapter  1 1.2.1 

Chapter  2 1.2.2 

Chapter  3 1.2.3 

Objectives  l.J 

ANS-COBOL  1 . 4 

ANS-COBOL  Procedures  1.4.1 

Exception  to  Use  of  ANS-COBOL  1.4.2 

Authority  to  Grant  Exception  1.4.3 

FORTRAN  1 . 5 

FORTRAN  Procedure  1.5.1 

Exception  to  the  Use  of  FORTRAN  1.5.2 

Authority  to  Grant  an  Exception  1.5.3 

Changes  to  Manual  1 . 6 

CSC  Programing  Concepts  1.7 

The  Simplistic  Approach  1.7.1 

Self-documenting  Programs  1.7. 1.1 

Machine  Independence  1.7. 1.2 

Maintainability  1.7. 1.3 

Productivity  1.7. 1.4 

Logical  Flow  1.7. 1.5 

Standard  Construct  1.7. 1.6 

Efficiency  1.7. 1.7 

Program  Design  Criteria  1.8 

Program  Identification  1.9 

Multiple  Program  Outputs  1.10 

File  Organization  1.11 

Sequential  Data  Organization  1.11.1 

Indexed  File  Organization 

(IBM  Extension)  1.11.2 

Random  File  Organization  1.11.3 

Elements  of  File  Design  1.11.4 

File  Design  Considerations  1.11.5 

Interactive  Factors  1.11.5.1 

Hit  Ratio  1.11.5.2 

Misleading  Rules  of  File  Design  1.11.5.3 

Input  Media  1.11.6 

Console  1.11.6.1 


4^.  K-  «rv-. 


USACSC  MANUAL  18-1-1  1 FE®  79 


Paragraph 

Page 

Chapter  1 - USACSC  Programing  Procedures 
(continued) 

Tape 

1.11.6.2 

1-12 

Card 

1.11.6.3 

1-12 

Direct  Access  Storage  Devices 

1.11.6.4 

1-12 

Output  Media 

1.11.7 

1-13 

Printer 

1.11.7.1 

1-13 

Punch 

1.11.7.2 

1-15 

Tapes  and  Direct  Access  Storage 

Devices 

1.11.7.3 

1-15 

Program  to  Operator  Messages 

1.11.8 

1-15 

Format 

1.11.8.1 

1-15 

Program  ID 

1.11.8.2 

1-15 

Message  Number 

1.11.8.3 

1-15 

Type  of  Message 

1.11.8.4 

1-15 

Halts 

1.11.8.5 

1-16 

Recovery  Guidance 

1.11.9 

1-16 

Error  Condition  Options 

1.11.10 

1-16 

Console  Switches 

1.11.11 

1-17 

Utility  Programs  and  Subroutines 

1.11.12 

1-17 

Chapter  2 - USACSC  - ANS  COBOL  Specifications 

ANS-COBOL 

2.1 

2-1 

Introduction 

2.2 

2-2 

Purpose  of  USACSC-ANS  COBOL  Language 

Specifications 

2.2.1 

2-2 

Language  Conventions 

2.3 

2-3 

Glossary 

2.3.1 

2-3 

Language  Structure 

2.3.2 

2-3 

Separators 

2.3.2. 1 

2-3 

Punctuation  Characters 

2. 3. 2. 2 

2-3 

Quotation  Marks 

2.3.2. 3 

2-3 

Character-String 

2. 3. 2.4 

2-3 

Separators 

2. 3. 2. 5 

2-3 

Words 

2.3.3 

2-4 

Definition  of  a Word 

2. 3. 3.1 

2-4 

Types  of  Words 

2. 3. 3. 2 

2-4 

Concepts  of  Data  Reference 

2.3.4 

2-8 

Logical  Record  and  File  Concept 

2. 3.4.1 

2-8 

Concept  of  COBOL  Levels 

2. 3.4.2 

2-8 

Level-Numbers 

2. 3.4. 3 

2-9 

Concepts  of  Classes  of  Data 

2. 3.4.4 

2-9 

Algebraic  Signs 

2. 3. 4. 5 

2-10 

iv 


1 FEB  79 


USACSC  MANUAL  18-1-1 


| ■%. * 


Paragraph 


Chapter  2 - USACSC  - ANS  COBOL  Specifications 
(continued) 

Qualification  of  Name  2. 3.4.6 

Subscripting  2. 3.4.7 

Indexing  2. 3.4.8 

CSC  COBOL  Reference  Format  2.3.5 

General  Description  of  Reference 

Format  2.3.5. 1 

Reference  Format  Representation  2. 3. 5. 2 

DATA  DIVISION  Entries  2. 3. 5. 3 

Continuation  2. 3. 5. 4 

Blank  Lines  2. 3. 5. 5 

Comment  Lines  (IBM  Extension)  2. 3. 5. 6 

CSC's  Standard  Coding  Conventions  2.3.6 

Coding  2.3.6. 1 

CSC  COBOL  Specifications  2.4 

Format  Rules  and  Notes  2.4,1 

Language  Element  2.4. 1.1 

Function  2.4. 1.2 

Format  2.4. 1.3 

Syntax  Rules  2.4. 1.4 

General  Rules  2.4. 1.5 

Vendors'  Guidelines  2.4. 1.6 

CSC  Guidelines  2.4. 1.7 

Format  Punctuation  2.4.2 

General  Description  2.4.2. 1 

Elements  2.4. 2. 2 

Symbols  and  Notations  Used  in  This 

Manual  2.4.3 

General  2.4.3. 1 

Format  Presentation  2. 4. 3. 2 

Default  Option  2. 4. 3. 3 

Ellipsis  2. 4. 3. 4 

COBOL  Program  Structure  2.4.4 

Divisions  2.4.4. 1 

Formats  2. 4. 4. 2 

Structure  of  the  COBOL  Program  2. 4. 4. 3 

IDENTIFICATION  DIVISION  2.4.5 

ELEMENTS  2.4.5. 1 

PROGRAM- ID  PARAGRAPH  2. 4. 5. 2 

AUTHOR  PARAGRAPH  2.4.5. 3 

INSTALLATION  PARAGRAPH  2.4. 5.4 


v r*& 


1 FEB  79 


USACSC  MANUAL  18-1-1 


Chapter  2 - USACSC  - ANS  COBOL  Specifications 
(continued) 

Paragraph 

Page 

DATE-WRITTEN  PARAGRAPH 

2. 4. 5. 5 

2-34 

DATE-COMPILED  PARAGRAPH 

2. 4. 5. 6 

2-35 

REMARKS  PARAGRAPH 

2. 4. 5. 7 

2-36 

IDENTIFICATION  DIVISION  SAMPLE 

2. 4. 5. 8 

2-37 

ENVIRONMENT  DIVISION 

2.4.6 

2-38 

ELEMENTS 

2.4.6. I 

2-38 

CONFIGURATION  SECTION 

2. 4. 6. 2 

2-40 

SOURCE-COMPUTER  PARAGRAPH 

2. 4. 6. 3 

2-41 

OBJECT-COMPUTER  PARAGRAPH 

2. 4. 6. 4 

2-42 

SPECIAL-NAMES  PARAGRAPH 

2. 4. 6. 5 

2-44 

INPUT-OUTPUT  SECTION 

2. 4. 6. 6 

2-46 

FILE-CONTROL  PARAGRAPH 

2.4.6. 7 

2-47 

SELECT  CLAUSE 

2. 4. 6. 8 

2-49 

ASSIGN  CLAUSE 

2. 4. 6. 9 

2-51 

RESERVE  CLAUSE 

2.4.6.10 

2-66 

ACCESS  CLAUSE 

2.4.6.11 

2-67 

ACTUAL  KEY  CLAUSE  (IBM  Extension) 

2.4.6.12 

2-68 

NOMINAL  KEY  CLAUSE  (IBM  Extension) 

2.4.6.13 

2-70 

RECORD  KEY  CLAUSE  (IBM  Extension) 

2.4.6.14 

2-73 

TRACK-AREA  CLAUSE  (IBM  Extension) 

2.4.6.15 

2-74 

TRACK- LIMIT  CLAUSE  (IBM  Extension) 

2.4.6.16 

2-75 

I-O-CONTROL  PARAGRAPH 

2.4.6.17 

2-77 

RERUN  CLAUSE 

2.4.6.18 

2-78 

SAME  CLAUSE 

2.4.6.19 

2-81 

MULTIPLE  FILE  TAPE  CLAUSE 

APPLY  WRITE-ONLY  CLAUSE 

2.4.6.20 

2-82 

(IBM  Extension) 

2.4.6.21 

2-83 

DATA  DIVISION 

2.4.7 

2-84 

ELEMENTS 

2.4. 7.1 

2-84 

, FILE  SECTION 

2. 4. 7. 2 

2-87 

WORKING-STORAGE  SECTION 

2. 4. 7. 3 

2-90 

LINKAGE  SECTION  (IBM  Extension) 

FILE  DESCRIPTION  (FD)  AND  SORT-FILE 

2.4. 7.4 

2-95 

(SD)  DESCRIPTION  ENTRY 

2.4. 7.5 

2-98 

LABEL  RECORDS  CLAUSE 

RECORDING  MODE  CLAUSE 

2. 4. 7. 6 

2-100 

(IBM  Extension) 

2. 4. 7. 7 

2-101 

RECORD  CONTAINS  CLAUSE 

2.4. 7.8 

2-103 

BLOCK  CONTAINS  CLAUSE 

2.4. 7.9 

2-104 

DATA  RECORD  CLAUSE 

2.4.7.10 

2-106 

i 

i 


\ 


vi 


/ 


1 FEB  79 


USACSC  MANUAL  18-1-1 


Paragraph  Page 

Chapter  2 - USACSC  - ANS  COBOL  Specifications 
(continued) 


RECORD  DESCRIPTION  CLAUSE 

2.4.7.11 

2-107 

DATA  DESCRIPTION  CLAUSE 

2.4.7.12 

2-108 

DATA  NAME  OR  FILLER  CLAUSE 

2.4.7.13 

2-111 

REDEFINES  CLAUSE 

2.4.7.14 

2-113 

OCCURS  CLAUSE 

2.4.7.15 

2-115 

PICTURE  CLAUSE 

2.4.7.16 

2-121 

USAGE  CLAUSE 

2.4.7.17 

2-131 

VALUE  CLAUSE 

2.4.7.18 

2-134 

JUSTIFIED  CLAUSE 

2.4.7.19 

2-137 

SYNCHRONIZED  CLAUSE 

2.4.7.20 

2-139 

BLANK  WHEN  ZERO  CLAUSE 

2.4.7.21 

2-142 

PROCEDURE  DIVISION 

2.4.8 

2-143 

General  Description 

2.4.8. 1 

2-143 

Structure 

2. 4. 8. 2 

2-143 

General  Rules 

2. 4.8. 3 

2-145 

STATEMENTS 

2.4.9 

2-170 

ACCEPT  STATEMENT 

2.4.9. 1 

2-170 

ADD  STATEMENT 

2.4.9. 2 

2-172 

ALTER  STATEMENT  (Not  CSC  COBOL) 

2.4.9. 3 

2-176 

CALL  STATEMENT  (IBM  Extension) 

2. 4. 9. 4 

2-177 

CANCEL  STATEMENT 

2.4.9. 5 

2-180 

CLOSE  STATEMENT 

2. 4. 9. 6 

2-182 

COMPUTE  STATEMENT 

2. 4. 9. 7 

2-190 

COPY  STATEMENT 

2. 4. 9. 8 

2-195 

DEBUG  STATEMENT  (IBM  Extension) 

2. 4. 9. 9 

2-198 

DISPLAY  STATEMENT 

2.4.9.10 

2-200 

DIVIDE  STATEMENT 

2.4.9.11 

2-204 

ENTER  STATEMENT  (Not  CSC  COBOL) 

2.4.9.12 

2-208 

ENTRY  STATEMENT  (IBM  Extension) 

2.4.9.13 

2-210 

EXAMINE  STATEMENT  (Not  CSC  COBOL) 

2.4.9.14 

2-211 

EXHIBIT  STATEMENT  (IBM  Extension) 

2.4.9.15 

2-215 

EXIT  STATEMENT  (IBM  Extension) 

2.4.9.16 

2-218 

GO  TO  STATEMENT 

2.4.9.17 

2-220 

IF  STATEMENT 

2.4.9.18 

2-222 

MOVE  STATEMENT 

2.4.9.19 

2-229 

MULTIPLY  STATEMENT 

2.4.9.20 

2-235 

ON  STATEMENT  (IBM  Extension) 

2.4.9.21 

2-239 

OPEN  STATEMENT 

2.4.9.22 

2-241 

PERFORM  STATEMENT 

2.4.9.23 

2-244 

READ  STATEMENT 

2.4.9.24 

2-257 

USACSC  MANUAL  18-1-1 


1 FEB  79 


Paragraph  Page 

Chapter  2 - USACSC  - ANS  COBOL  Specifications 
(continued) 

READY  TRACE  STATEMENT 


(IBM  Extension) 

2.4.9.25 

2-261 

RELEASE  STATEMENT 

RESET  TRACE  STATEMENT 

2.4.9.26 

2-262 

(IBM  Extension) 

2.4.9.27 

2-263 

RETURN  STATEMENT 

2.4.9.28 

2-264 

REWRITE  STATEMENT 

2.4.9.29 

2-265 

SEARCH  STATEMENT 

2.4.9.30 

2-267 

SET  STATEMENT 

2.4.9.31 

2-268 

SORT  STATEMENT 

2.4.9.32 

2-269 

START  STATEMENT 

2.4.9.33 

2-270 

STOP  STATEMENT 

2.4.9.34 

2-272 

SUBTRACT  STATEMENT 

2.4.9.35 

2-275 

USE  STATEMENT 

2.4.9.36 

2-279 

WRITE  STATEMENT 

2.4.9.37 

2-288 

Special  Features 

2.5 

2-292 

COBOL  Segmentation  Facility 

2.5.1 

2-292 

Organization  of  Segmentation 

Facility 

2.5. 1.1 

2-292 

Segment  Classification 

2.5. 1.2 

2-29J 

Segmentation  Control 

2. 5. 1.3 

2-293 

Structure  of  Program  Segments 

2. 5. 1.4 

2-293 

Restrictions  on  Perform  Statement 

2. 5. 1.5 

2-295 

Example  of  Segmentation 

2. 5. 1.6 

2-296 

CSC  Guidelines  for  Segmentation 

2. 5. 1.7 

2-297 

SORT  Feature 

2.5.2 

2-299 

Introduction 

2.5.2. 1 

2-299 

ENVIRONMENT  DIVISION  Sort  Feature 

2. 5. 2. 2 

2-300 

DATA  DIVISION  Sort  Feature 

2. 5. 2. 3 

2-301 

PROCEDURE  DIVISION  Sort  Feature 

2. 5. 2.4 

2-302 

SORT  STATEMENT 

2. 5. 2. 5 

2-303 

RELEASE  STATEMENT 

2. 5. 2.6 

2-308 

RETURN  STATEMENT 

2.5.2. 7 

2-309 

EXIT  STATEMENT 

2. 5.2.8 

2-310 

Vendors'  Guidelines  for  Sort 

2. 5. 2. 9 

2-311 

CSC  Guidelines  for  Sort 

2.5.2.10 

2-315 

TABLE  HANDLING  FEATURE 

2.5.3 

2-317 

Introduction 

2. 5. 3.1 

2-317 

SUBSCRIPTING 

2. 5. 3. 2 

2-318 

OCCURS  STATEMENT 

2. 5. 3. 3 

2-322 

viii 


1 FEB  79 


USACSC  MANUAL  18-1-1 


•• 


* ^ 


Chapter  2 - USACSC  - ANS  COBOL  Specifications 
(continued) 

Paragraph 

Page 

Indexing 

PROCEDURE  DIVISION  Considerations 

2. 5. 3.4 

2-325 

for  Table  Handling 

2. 5. 3. 5 

2-328 

Source  Program  Library  Facility 
Introduction  to  Copy  Library 

2.5.4 

2-342 

Facility 

2. 5.4.1 

2-342 

COPY  STATEMENT 

2. 5.4. 2 

2-343 

Debugging  Aids 

2.5.5 

2-350 

Introduction  to  Debugging  Aids 

2. 5. 5.1 

2-350 

EXHIBIT  (IBM  Extension) 

2. 5. 5. 2 

2-353 

ON  (IBM  Extension) 

2. 5. 5. 3 

2-355 

TRACE  (IBM  Extension) 

2. 5. 5. 4 

2-357 

DOS  COBOL  Program  Debugging  Aids 

2. 5. 5. 5 

2-358 

Common  Causes  of  Errors 

2. 5. 5. 6 

2-359 

Link  Edit  Map 

2. 5. 5. 7 

2-361 

Object  Storage  Layout 

2. 5. 5. 8 

2-363 

System  Action  Under  Cancel 

2. 5. 5. 9 

2-375 

Wait  States 

2.5.5.10 

2-392 

Commonly  Encountered  User  Errors 

2.5.5.11 

2-394 

DOS  Core  Dump  Tracing 

2.5.5.12 

2-396 

Interpreting  Output 

2.5.5.13 

2-406 

OS  COBOL  Program  Debugging  Aids 

2.5.5.14 

2-425 

Completion  Code  001 

2.5.5.15 

2-426 

Completion  Code  013 

2.5.5.16 

2-428 

Completion  Code  031 

2.5.5.17 

2-429 

Completion  Code  03B 

2.5.5.18 

2-431 

Completion  Code  03D 

2.5.5.19 

2-432 

OCX  Completion  Code  Note 

2.5.5.20 

2-433 

Completion  Code  OC1 

2.5.5.21 

2-434 

Completion  Code  0C5 

2.5.5.22 

2-435 

Completion  Code  OC7 

2.5.5.23 

2-437 

Completion  Code  237 

2.5.5.24 

2-  39 

Completion  Code  637 

2.5.5.25 

2-442 

Completion  Code  804 

2.5.5.26 

2-444 

Completion  Code  806 

2.5.5.27 

2-445 

Completion  Code  813 

2.5.5.28 

2-446 

Completion  Code  D37 

2.5.5.29 

2-448 

Completion  Code  E37 

2.5.5.30 

2-44r* 

Control  Block  Pointers 

2.5.5.31 

2-451 

OS/MVT  Core  Dump 

2.5.5.32 

2-458 

ix 


USACSC  MANUAL  18-1-1 


1 FEB  79 


Paragraph  Page 

Chapter  2 - USACSC  - ANS  COBOL  Specifications 
(continued) 


OS  Data  Exceptions,  Recognition 


and  Error  Recovery 

2.5.5.33 

2-466 

Register  and  Save  Area 

2.5.5.34 

2-469 

0C7  (Data  Check)  Debugging  Exercise 

2.5.5.35 

2-471 

EXHIBIT  I 

2-476 

EXHIBIT  II 

2-477 

EXHIBIT  III 

2-478 

EXHIBIT  IV 

2-479 

EXHIBIT  V 

2-480 

EXHIBIT  VI 

2-481 

Debugging  of  COBOL  Segmented 

Programs  under  OS/MFT 

2.5.5.36 

2-482 

CSC  COBOL  Program  Design  Techniques 

2.6 

2-487 

PROCEDURE  DIVISION  Design 

2.6.1 

2-487 

Standard  Logic  Constructs 

2.6.2 

2-490 

COBOL  Program  Structure  Techniques 

2.7 

2-500 

Data  Format  Considerations 

2.7.1 

2-502 

Data  Item  Considerations 

2.7.2 

2-523 

PROCEDURE  DIVISION  Techniques 

2.7.3 

2-535 

Paragraph  Naming 

2. 7.3.1 

2-535 

File  Processing 

2. 7. 3.2 

2-535 

Conditional  Statements 

2. 7. 3. 3 

2-537 

Arithmetic  Operations 

2. 7.3.4 

2-543 

Branching  Statements 

2. 7. 3. 5 

2-548 

Data  Manipulation 

2. 7. 3. 6 

2-551 

Table  Handling  Techniques 

2.7.4 

2-552 

Table  Construction  and  Referencing 

2. 7.4.1 

2-552 

Transfer  of  Control 

2.7.5 

2-559 

Overlay  Structures 

2. 7. 5.1 

2-559 

Subprogram  Linkage 

2. 7. 5. 2 

2-560 

Subprogram  Techniques 

2. 7. 5. 3 

2-562 

Source  Language  System  (SLS/Program 
Language  Update  Service  (PLUS) 

2.7.6 

2-565 

Source  Library  Maintenance 

2.7.6. 1 

2-565 

Catalogued  Programs 

2. 7. 6. 2 

2-565 

Single  Source  Library  System 

2.8 

2-566 

Objective 

2.8.1 

2-566 

Procedures 

2.8.2 

2-566 

Coding 

2.8.3 

2-566 

Single  Source  System 

2.8.4 

2-566 

o 


G 

i ” 

i ( } 


28  Jun  79 


USACSC  MANUAL  18-1-1 
C-l 


Paragraph 


Chapter  2 - USACSC  - ANS  COBOL  Specifications 
(continued) 

Implementing  Instructions  2.8.5 

OS/DOS  Compatibility  2.9 

Program  Techniques  2.9.1 

Input/Storage  Areas  2.9.2 

Input  Buffers  2.9.2. 1 

Address  Pointer  2. 9. 2. 2. 

STOP  RUN  Statement  2.9.3 

Date  Formats  2.9.4 

Record  Identifier  2.9.5 

Program  Switches  2.9.6 

PICTURE  Clause  2.9.7 

APPLY  Clause  2.9.8 

INVALID  KEY  Option  2.9.9 

Syntax  Errors  2.9.10 

Standards  Audit  2.10 

MetaCOBOL  Standards  Audit  2.10.1 

Purpose  2.10.1.1 

Messages/Responses  2.10.1.2 

Job  Set-Up  Requirements  2.11 

OS  Set-Ups  2.11.1 

OS  Batch  Job  Stream  2.11.1.1 

To  Execute  on  TSO  2.11.1.2 

DOS  Set-Ups  2.11.2 

DOS  Batch  Job  Stream  2.11.2.1 

Chapter  3 - USACSC  Structured  Programing 
Technology 

Introduction  3.1 

General  3.1.1 

Purpose  3.1.2 

Definitions  3.1.3 

Backup  Programer  3. 1.3.1 

Chief  Programer  3. 1.3. 2 

Data  Flow  Graph  3. 1.3.3 

IPO  (Input,  Process  Output)  Chart  3. 1.3. 4 
Librarian  3. 1.3.5 

Program  Design  Language  or 

Pseudo-Code  3. 1.3.6 

Programing  Support  Library  (PSL)  3. 1.3. 7 

Structure  Chart  3. 1.3. 8 

Structured  Program  3. 1.3. 9 

Structured  Programing  (SP)  or  Structured 
Coding  (SC)  3.1.3.10 

Structured  Source  Code  Listing  3.1.3.11 


2-567 

2-568 

2-568 

2-568 

2-568 

2-568 

2-569 

2-569 

2-570 

2-570 

2-570 

2-570 

2-571 

2-571 

2-572 

2-572 

2-572 

2-572 

2-587 

2-587 

2-587 

2-591 

2-591 

2-591 


CSCM  18-1-1 
C-l 


28  Jun  79 


Paragraph 

Page 

CHAPTER  3 - USACSC  Structured  Programing 

i \ 

(Continued) 

L 

* 

Structured  Testing 

3.1.3.12 

3-3 

Structured  Walkthrough 

3.1.3.13 

3-4 

* 

Stub 

3.1.3.14 

3-4 

* 

Team  Operation  or  Chief  Programer 

Team 

3.1.3.15 

3-4 

* 

Top  Down  Development 

3.1.3.16 

3-4 

Top  Down  Program  (TDP) 

3.1.3.17 

3-4 

Top  Down  Structured  Programing  (TDSP) 

3.1.3.18 

3-5 

Concepts  of  Top  Down  Structured 

Programing  (TDSP) 

3.1.4 

3-5 

General 

3. 1.4.1 

3-5 

* 

Figures 

3. 1.4. 2 

3-6 

* 

Program  Design  Language  (PDL)  or 

Pseudo-Code 

3. 1.4. 3 

3-6 

Programing  Support  Library  (PSL) 

3. 1.4.4 

3-11 

<J 

* 

Structured  Walkthroughs 

3. 1.4. 5 

3-12 

Chief  Programer  Team  (CPT) 

3. 1.4. 6 

3-13 

* 

Nine  Step  Module  Management  Process 

3. 1.4. 7 

3-14 

General  Standards  and  Guidelines 

3.1.5 

3-15 

Standards 

3. 1.5.1 

3-15 

( 

Guidelines 

3. 1.5. 2 

3-16 

ANS  COBOL  Language  Standards  and 

* 

Guidelines 

3.1.6 

3-16 

* 

General  Comments 

3. 1.6.1 

3-16 

* 

COBOL  Declaratives  Section 

3. 1.6. 2 

3-16 

( ) 

* 

Structured  COBOL 

3.1.7 

3-16 

Chapter  4 - FORTRAN  PROGRAMING  PROCEDURES 

Introduction 

4.1 

4-1 

Design  Considerations 

4.2 

4-1 

Modularity 

4.2.1 

4-1 

Library  Functions 

4.2.2 

4-1 

Input/Output  Functions 

4.2.3 

4-1 

Program  Structure 

4.3 

4-2 

Source  Card  Coding 

4.3.1 

4-2 

Comment  Cards 

4. 3. 1.1 

4-2 

Sequence  Numbers 

4.3. 1.2 

4-2 

Statement  Labeling 

4. 3. 1.3 

4-2 

Statement  Ordering 

4. 3.1. 4 

4-3 

Symbolic  Names 

4. 3. 1.5 

4-3 

FORTRAN  Character  Set 

4.3.2 

4-3 

o 

Operators  Used  in  FORTRAN  Programs 

4.3.3 

4-4 

FORTRAN  Operators 

4. 3. 3.1 

4-4 

Relation  Operators 

4. 3. 3. 2 

4-4 

Logical  Operators 

4. 3. 3. 3 

4-4 

Additional  Information 

4. 3. 3. 4 

4-5 

; 


>4 


USACSC  Manual  18-1-1 


i 

V X 


* ^ 


1 FEB  79 

Arrays 

4.4 

4-5 

Variable  Names 

A. 5 

4-5 

Program  Comments 

A. 6 

4-5 

Meaning  Comments 

A. 6.1 

4-5 

Identification  of  Program  in  a Comment 

A. 6. 2 

4-6 

Program  Modification 

A. 6. 3 

4-6 

Program  Comments  for  Subroutines 

A. 6. A 

4-6 

Distribute  Comment 

A. 6. 5 

4-6 

Descriptive  Comments 

A. 6. 6 

4-6 

Conspicuous  Printing  Style  for  Comments 

A. 6. 7 

4-7 

Recovery  Procedures  in  Comments 

A. 6. 8 

4-7 

Checkout  and  Desk  Checking 

A. 7 

4-7 

Checkout  Method 

A. 7.1 

4-7 

Desk  Checking 

A. 7.2 

4-7 

Program  Logic  Checklist 

A. 7. 3 

4-7 

Statement  Number 

A. 7. 3.1 

4-7 

Verify  Statement  Number 

A. 7. 3. 2 

4-7 

Assure  Parenthesis  Balance 

A. 7. 3. 3 

A- 7 

Subscripted  Variables 

A. 7. 3. A 

A- 7 

Check  for  DO-Loop 

A. 7. 3.5 

4-7 

Assure  Statements  are  Present 

A. 7. 3.6 

A- 8 

Check  Hollerith  Fields 

4. 7. 3. 7 

4-8 

Call  Statement 

A. 7. 3. 8 

4-8 

Arguments 

A. 8 

4-8 

Grouping  of  Arguments 

A. 8.1 

4-8 

Error  Code 

A. 8.2 

4-8 

Non-integer  Variable 

A. 9 

4-8 

Array  Naming  Convention 

A. 9.1 

4-8 

Arguments  in  Call  Statements 

A. 9. 2 

4-9 

Data  Variable  Assignment 

A. 9. 3 

4-9 

Whole  Numbers 

A. 9. A 

4-9 

Input  - Output  Devices 

A. 9. 5 

4-9 

Constant  Count  Indices 

A. 9. 6 

4-9 

Chapter  5 - ALC  Programing  Procedures  (To  Be  Developed) 


xlii 


1 FEB  79 


USACSC  MANUAL  18-1-1 


FIGURES 

PAGE 

1-1 

Elements  of  File  Design 

1-9 

1-2 

Skipping 

1-14 

1-3 

Format 

1-15 

1-4 

Type  of  Message 

1-15 

2-1 

Reserved  Words  (Fixed  DATA-NAMES) 

2-5 

2-2 

Concept  of  Classes  of  Data 

2-10 

2-3 

Coding  Data  Description  Entries 

2-20 

2-4 

Structure  of  the  COBOL  Program 

2-27 

2-5 

IDENTIFICATION  DIVISION  Sample 

2-37 

2-6 

File  Section  Example 

2-89 

2-7 

Working-Storage  Example 

2-91 

2-8 

Picture  Clause  Example 

2-126 

2-9 

Picture  Clause  Example 

2-127 

2-10 

Picture  Clause  Example- 

2-128 

2-11 

Picture  Clause  Example 

2-129 

2-12 

Picture  Clause  Example 

2-130 

2-13 

Categories  of  Statements 

2-146 

2-14 

Imperative  Statements 

2-150 

2-15 

Arithmetic  Operators 

2-152 

2-16 

Permissible  Arithmetic  Symbol  Pairs 

2-153 

2-17 

Permissible  Comparisons 

2-156 

2-18 

Numeric  Test 

2-162 

2-19 

Logical  Operators  and  Their  Meaning 

2-165 

2-20 

Logical  Operators  and  Simple  Conditions  A & B 

2-166 

2-21 

Compound  Condition  Structure 

2-168 

2-22 

Relationship  of  Categories  of  Files/Formats 

of  CLOSE  Statement 

2-183 

2-23 

EXAMINE  Statement  Data  Examples 

2-213 

2-24 

IF  Statement  Examples 

2-227 

2-25 

MOVE  Statement  Examples 

2-232 

2-26 

PERFORM  Statement  Flowchart  (Condition  1) 

2-250 

2-27 

PERFORM  Statement  Flowchart  (Condition  1 & 2) 

2-252 

2-28 

PERFORM  Statement  Flowchart  (Condition  1,  2 & 3) 

2-253 

2-29 

USE  Statement  Example 

2-282 

2-30 

USE  Statement  Example 

2-284 

2-31 

USE  Statement  Example 

2-285 

2-32 

Example  of  Segmentation 

2-296 

2-33 

SORT  Statement  Example 

2-313 

2-34 

SUBSCRIPTING  Example 

2-320 

2-35 

SEARCH  Statement  Example 

2-333 

2-36 

Sample  Table  Handling  Program 

2-337 

xiv 


USACSC  MANUAL  18-1-1 
C-l 


28  Jun  79 


FIGURES  (CONTINUED) 

2-37  COPY  Statement  (Example  1) 

COPY  Statement  (Example  2) 

COPY  Statement  (Example  3) 

COPY  Statement  (Example  4) 

2-38  DTF  (Object  Storage  Layout) 

2-39  Label  Block  Key  for  Every  Label  Block 

2-40  Label  Block  Summarized 

2-41  Sequential  DASD  File  Label  Blocks 

2-42  Sample  Core  DUMP  (DOS) 

2-43  Glossary  Definition  8 Usage  Sample 

2-44  Symbols  Used  in  the  Listing  and  Glossary 

to  Define  Compiler-Generated  Information 
2-45  Sample  Output  (Job-Step) 

2-46  System  Message  Identification  Codes 

2-47  Illustration  of  Compiler  Output 

2-48  Linkage  Editor  Output 

2-49  OS/MVT  Core  Dump  Sample 

2-50  Sample  Link  Edit  Map 

2-51  Sample  Core  Dump 

2-52  Transaction  Code/Meaning/Frequency 

2-53  Transaction  Code  Example 

2-54  Example  of  Programer  Control  of  Looping  With 
Indexing 

2-55  Index  Names  and  Index  Data  Items  - 

Comparisons 

2-56  Working-Storage  Section  Example 

2-57  Numeric  Data  Format  Characteristics 

2-58  Illustrated  Data  Fields 

2-59  ADD  Operation  Chart 

2-60  MOVE  Operation  Chart 

2-61  IF  Condition  Chart 

2-62  Typical  Overlay  Structure  Chart 

2- 63  Example  of  Calling  Program 

3- 1  Approach  Comparison 

3-2  Program  Level  Structure  Chart  for  Pay 

Calculations 

3-3  Overview  Diagram  of  Pay  Calculation  Module 

3-4  FLOWCHART  - Nested  Decision 

3-5  Basic  Logic  Structures 


Attachments 


GLOSSARY 

RESERVED  WORDS  LIST 


Index 


PAGE 

2-346 

2-347 

2-348 

2-349 

2-368 

2-389 

2-389 

2-390 

2-399 

2-409 

2-412 

2-417 

2-418 

2-420 

2-424 

2-463 

2-485 

2-486 

2-490 

2-491 

2-495 

2-496 

2-498 

2-503 

2-507 

2-509 

2-514 

2-518 

2-559 

2-562 


3-8* 

3-8* 

3-17* 

3-19* 


Index-1 


CSCM  18-1-1 


CHAPTER  l 

USACSC  PROGRAMING  PROCEDURES 


1.1  GENERAL . This  manual  prescribes  procedures  to  be  used  by 
programers  In  developing  and  maintaining  multicommand  or  command 
unique  USACSC  managed  systems.  It  will  be  used  as  the  primary 
source  of  information  for  USACSC  programers. 


1 . 2  INTRODUCTION 


1.2.1  CHAPTER  i.  This  chapter  is  general  in  scope  and  is  not 
related  to  a specific  language.  The  material  contained  in 
CHAPTER  1 is  considered  mandatory. 


1.2.2  CHAPTER  2.  This  chapter  deals  with  CSC  ANS  COBOL  stan- 
dards and  procedures  and  i3  considered  mandatory  with  the 
following  specific  guidance: 


• The  phrase  "Extension  to  ANS  COBOL"  indicates  that  the 
vendor  has  provided  an  additional  feature  to  ANS  COBOL.  The  use 
of  vendor  extensions  should  be  avoided  whenever  possible  to  pre- 
clude problems  of  compatibility  and  transferability  between 
vendors . 


• If  an  element  of  ANS  COBOL  or  a vendor's  extension  has 
not  been  described  in  the  Programers  Procedures  Manual,  it  is  not 
CSC  COBOL  and  will  not  be  used. 


• All  new  programs  will  follow  the  standards  set  forth  in 
this  chapter. 


• Existing  programs  or  systems  will  normally  be  changed  to 
conform  to  these  standards  only  when  other  changes  are  being  made 
to  the  programs  or  systems,  where  the  standards  changes  may  be 
made  in  conjunction.  Under  proper  conditions,  standards  changes 
may  be  made  alone,  without  accompanying  logic  changes,  but  under 
no  conditions  will  any  changes  be  made  in  any  programs  or  systems 
without  formal  submission  of  a Systems  Change  Request  (SCR) 
through  the  normal  procedures  as  spelled  out  in  AR  18-1,  and  CSC 
Regulations  18-1  and  18-21. 


• The  subsections  on  COBOL  Program  Design  Techniques  and 
CSC  COBOL  Programing  Techniques  in  this  chapter  are  not  mandatory 
They  represent  the  preferred  approaches  and  are  to  be  used  unless 
clearly  not  applicable  to  the  ptoblem  at  hand. 
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1.2.2  CHAPTER  2.  (Cont.) 

• Throughout  the  discussion  of  COBOL  language  elements, 

CSC  guidelines  are  given.  When  the  operatives  "should", 
"ideally",  "it  is  recommended",  etc.,  are  employed,  the  guide- 
lines identify  "the  preferred  method  approach"  rather  than 
mandatory  rules. 

• If  a prohibited  feature  is  needed  due  to  systems 
requirements,  a waiver  for  that  specific  contravention  of 
command  standards  must  be  sought  through  the  procedures  as  out- 
lined in  USACSCM  18-1,  VOL  I (GENERAL). 

1.2.3  CHAPTER  3.  This  chapter  deals  with  STRUCTURED 
PROGRAMING.  Subsequent  sections  will  deal  with  other  languages 
as  required. 

1 . 3 OBJECTIVES.  Standard  programing  languages  and  uniform 
software  conventions  are  adopted  to  achieve  the  following: 

• Centralized  preparation  of  programs. 

• Capability  of  transferring  programs  from  one  operating 
system  to  another  or  from  one  hardware  manufacturer  to  another 
with  the  minimum  amount  of  programer  effort. 

• Simplification  in  programing  by  use  of  a language 
oriented  to  subject  matter  terms. 

• Greater  sharing  of  computer  programs. 

1.4  ANS-COBOL . The  American  National  Standard  Common  Business 
Oriented  Language  (ANS-COBOL)  is  the  DA  standard  computer 
language  for  use  in  business-type  information  and  data  systems. 

1.4.1  ANS-COBOL  PROCEDURES.  Developers  responsible  for 
business-type  systems  design  and/or  programing  will  insure  that 
the  following  procedures  are  followed: 

• Program  all  new  systems  in  ANS-COBOL,  except  as  noted 
below. 

• Program  major  revisions  to  existing  systems  in  ANS-COBOL 
when  the  use  of  ANS-COBOL  will  not  adversely  affect  system 
capability. 
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1.4.1  ANS-COBOL  PROCEDURES.  (Cont.) 

• Reprogram  existing  non  ANS-COBOL  programs  to  ANS-COBOL 
as  time  and  funds  permit. 

1.4.2  EXCEPTION  TO  USE  OF  ANS-COBOL.  An  exception  to  the  use 
of  ANS-COBOL  may  be  authorized  under  the  following  conditions. 

• A COBOL  compiler  does  not  exist  for  the  model. 

• A COBOL  compiler  exists  but  the  configuration  in  use 
cannot  adequately  accommodate  the  compiler  because  of  memory  or 
equipment  limitations. 

• A COBOL  compiler  exists  but  certain  required  processing 
conditions  cannot  be  handled,  examples  being  random  access 
processing,  translation  of  an  ASC  II  encoded  tape,  etc.,  such 
problems  being  solvable  by  called  ALC  subroutines.  The  require- 
ments for  such  modules  should  be  addressed  to  the  Executive 
Software  Division  of  Systems  Integration  Directorate  for  con- 
sideration for  inclusion  in  Command  executive  software  before 

a waiver  is  requested  for  a system-unique  ALC  module. 

• The  cost  of  compiling  ANS-COBOL  programs  has  been 
properly  documented  and  determined  to  be  prohibitive. 

1.4.3  AUTHORITY  TO  GRANT  EXCEPTION.  The  Commander,  US  Army 
Computer  Systems  Command,  is  authorized  to  grant  an  exception 
to  the  use  of  ANS-COBOL  on  all  multicommand  or  Command  unique 
systems  that  operate  on  ADPE  acquired  by  the  Department  of  the 
Army  to  support  standard  USACSC-managed  multicommand  systems. 
Requests  for  exceptions  will  be  submitted  in  accordance  with  the 
provisions  of  USACSCM  18-1,  VOL  I (GENERAL) . 

1.5  FORTRAN.  American  National  Standard  (ANS)  FORTRAN 
(X3. 9-1966)  and  basic  FORTRAN  (X3. 10-1966)  are  designated  the 
Army  Standard  Programing  Language  (ASPL)  for  scientific  and  engi- 
neering applications.  Use  of  language  elements  provided  in  indi- 
vidual FORTRAN  compilers  but  not  defined  in  the  FORTRAN  standards 
(ANS  X3. 9-1966  and  X3. 10-1966)  must  be  approved  by  HQDA. 

1.5.1  FORTRAN  PROCEDURE.  Developers  responsible  for  scientific 
and  engineering  type  systems  design  and/or  programing  will  pro- 
gram new  systems  and  major  revisions  to  existing  systems  in 
FORTRAN . 
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1.5.2  EXCEPTION  TO  THE  USE  OF  FORTRAN.  An  exception  to  the 
use  of  FORTRAN  in  programs  may  be  authorized  under  the  following 
circumstances: 

• A FORTRAN  compiler  does  not  exist  for  the  model  of 
computer . 

• A FORTRAN  compiler  exists  for  the  configuration  but 
lacks  the  power  and  flexibility  necessary  to  operate  efficiently 
In  a given  system. 

• A FORTRAN  compiler  exists  for  the  configuration  but 
lacks  required  capabilities  (i.e.,  floating  point)  and  does  not 
permit  exit  to  another  language. 

1.5.3  AUTHORITY  TO  GRANT  AN  EXCEPTION.  The  Commander,  US  Army 
Computer  Systems  Command  is  authorized  to  grant  an  exception  to 
the  use  of  FORTRAN  on  all  multicommand  or  Command  unique  systems 
that  operate  on  ADPE  acquired  by  the  Department  of  the  Army  to 
support  standard  USACSC-managed  multlcommand  systems.  The 
request  will  be  submitted  in  accordance  with  the  provisions  of 
USACSCM  18-1,  VOL  I (GENERAL). 

1.6  CHANGES  TO  MANUAL.  Recommended  changes  to  the  manual  are 
to  be  forwarded  to  Commander,  US  Army  Computer  Systems  Command, 
ATTN:  CSCS-TES,  Fort  Belvoir,  VA  22060.  Recommendations  will 
be  submitted  on  DA  Form  2028.  Incomplete  DA  Forms  2028  will  be 
returned  to  the  sender  for  further  clarification  before  any 
action  is  taken. 

1.7  CSC  PROGRAMING  CONCEPTS.  The  following  are  general  CSC 
programing  concepts: 

• Efficient  use  of  programing  language  to  reduce  processing 
time,  simplify  the  operator’s  job,  and  make  more  effective  use  of 
peripheral  devices  and  main  storage. 

• Easily  debugged  programs  through  modular,  building  block 
structure  and  avoidance  of  overly  complex  language  elements. 

• Easily  maintained  programs  that  are  self-documenting  with 
meaningful  user  defined  words,  concise  and  descriptive  comments, 
and  a clear  "meaningful"  structure  of  sentences  and  paragraphs. 
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1.7  CSC  PROGRAMING  CONCEPTS.  (Cont.) 

• Easily  transferable  programs  and  programers  that  are 
machine  Independent  and  programs  that  are  easily  transferable  or 
require  a minimum  translation  and  management  effort  to  be  fully 
operational  on  a variety  of  hardware. 

1.7.1  THE  SIMPLISTIC  APPROACH.  The  best  programing  technique 
Is  the  slmpllest  one.  The  program  which  Is  kept  simple  is 
easier  to  understand  and  follow.  The  command  programing  objec- 
tives below  are  supported  by  the  simplistic  approach: 

• Self-documenting  Programs 

• Machine  Independence 

• Maintainability 

• Productivity 

• Standard  Construct 

• Logical  Flow 

• Efficiency 

1.7. 1.1  Self-documenting  Programs.  These  aid  in  developing, 
maintaining  and  reusing  programs.  The  meaning  and  usage  of  data 
Items  Is  the  most  important,  but  most  neglected,  program  docu- 
mentation. Reasons  for  redefining  data  Items  as  alphanumeric  or 
numeric  and  class  selection  can  be  easily  Identified  by  provid- 
ing a brief  comment  to  the  data  item  description.  Other 
recommendations  for  developing  self-documenting  programs  are 
covered  In  this  manual.  Suggestions  include  meaningful  labels, 
data  and  logic  organization. 

1.7. 1.2  Machine  Independence.  Independence  from  machine 
implies  transferability  and  portability.  Transferability  is  the 
ability  to  move  a system  from  one  vendor  to  another.  Portabil- 
ity is  the  ability  to  move  a system  from  one  location  to  another 
In  a business  sense.  Thus  a payroll  system  may  be  used  by  more 
than  one  office  or  division  on  dissimilar  equipment. 

1.7. 1.3  Maintainability.  This  Implies  a quick,  accurate  under- 
standing of  a program's  functions  and  logic  by  the  maintenance 
programer  who  may  not  be  familiar  with  the  program  being 
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1.7. 1.3  Maintainability.  (Cont.) 

maintained.  This  manual  offers  guidelines  on  location  coding 
for  labels,  prefixing  of  data  names,  meaningful  data,  and  pro- 
gram layout  as  well  as  simple,  well-organized  program  logic. 

All  of  these  will  help  a programer  write  a more  readable,  main- 
tainable program. 

1.7. 1.4  Productivity.  This  Is  the  accurate  measure  of  a 
program's  success  - the  long-range  goal  which  all  these  other 
operational  goals  are  designed  to  achieve.  Meeting  these  goals 
will  result  in  a successful,  productive  program. 

1.7. 1.5  Logical  Flow.  This  Increases  the  simplicity  of  the 
code.  Subtle  complexity  is  often  Introduced  into  the  branching 
structure  of  a program.  If  a programer  gets  Into  difficulty, 
the  temptation  is  very  great  to  patch  around  a problem  area. 

Many  of  the  guidelines  and  standard  constructs  will  help  the 
programer  to  avoid  these  pitfalls. 

1.7. 1.6  Standard  Construct.  This  is  a standardized  grouping  of 
various  language  facilities  designed  to  perform  a particular 
function.  Some  of  the  constructs  covered  in  this  manual  include 
the  loop-controlling  and  flag  use.  Other  techniques  covered 
which  improve  logical  flow  include  mainline,  subroutines,  and 
proper  use  of  program  control  structures. 

1.7. 1.7  Efficiency.  This  is  the  aspect  which  programers  are 
first  concerned  about.  Core-usage  and  run-time  are  still  impor- 
tant, but  not  the  only  objectives  of  the  programer.  They  must 
be  considered  in  conjunction  with  the  previously  mentioned 
objectives.  In  this  manner  the  techniques  section  offers  sugges- 
tions for  efficient  use  of  core  and  machine  time. 

1.8  PROGRAM  DESIGN  CRITERIA.  This  paragraph  cannot  cover  all 
the  decisions  the  programer  must  face.  It  does,  however,  cover 
general  procedures  applicable  to  any  programing  language. 

• As  the  programer  is  designing  his  program,  he  can  ask 
himself  several  questions  which  match  the  effects  of  each 
potential  usage  of  a language  element  against  the  programing 
objectives  of  the  command. 

IS  the  element  INEFFECTIVE  or  a repetitious,  unnecessary 
alternative? 
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IS  the  coding  AMBIGUOUS  to  the  programer,  if  not  to  the 


compiler? 


DOES  it  produce  INEFFICIENT  OBJECT  CODE? 


IS  the  element  unnecessarily  COMPLEX  causing  debugging 
and  maintenance  problems? 


DO  IMPLEMENTATIONS  of  the  element  VARY  from  machine  to 
machine  significantly,  thus  reducing  changes  of  transferability? 


IS  the  coding  TOO  GENERAL  at  the  cost  of  inexplicit 


documentation? 


IS  the  coding  FREQUENTLY  MISINTERPRETED  by  programers? 


IS  the  coding  convenient  at  the  cost  of  INEFFECTIVE 


OPERATIONS? 


DOES  the  procedure  result  in  a program  with  POOR 


ORGANIZATION? 


DOES  the  procedure  cause  future  program  MAINTENANCE 


PROBLEMS? 


• One  must  recognize  that  some  of  the  objectives  reflected 
by  the  above  questions  are  mutually  exclusive.  The  compliance 
to  one  of  the  objectives  may  force  lack  of  compliance  to  other 
objectives.  However,  the  techniques  suggested  in  this  chapter 
are  those  which  are  designed  to  meet  the  objectives  in  the  best 
manner. 


1.9  PROGRAM  IDENTIFICATION.  The  program  identification  will  be 
assigned  as  outlined  in  USACSCM  18-1,  VOL  I. 


1.10  MULTIPLE  PROGRAM  OUTPUTS.  Parameter  or  control  cards  will 
be  used  to  control  production  of  more  than  one  product  by  a 
single  program.  For  example,  a program  can  be  written  which 
produces  several  reports  from  a single  source  of  input.  The 
parameter  or  control  card  will  contain  an  indicator  representing 
which  report  is  required.  Under  no  circumstances  will  the  con- 
sole operator  be  required  to  make  such  a determination.  Programs 
which  produce  variable  or  optional  reports  will  provide  suitable 
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1.10  MULTIPLE  PROGRAM  OUTPUTS.  (Cont.) 

methods  for  programatically  selecting  or  cancelling  a particular 
report  without  requiring  the  console  operator  to  make  such  a 
determination. 

1.11  FILE  ORGANIZATION. 

1.11.1  SEQUENTIAL  DATA  ORGANIZATION . 

• A sequentially  organized  file  has  records  arranged  in  a 
specified  order,  according  to  a key.  Access  is  serial.  Sequen- 
tial file  organization  can  be  used  with  either  serial  or  direct- 
access  storage  devices.  However,  all  records  must  be  serially 
passed  in  file  sequence  until  the  desired  one  is  located.  Fast 
access  to  individual  records  is  not  possible.  As  a result, 
transactions  to  update  files  are  batched  and  arranged  in  the 
same  order  as  the  master  file.  The  master  file  is  updated  as 
discussed  below. 

• When  sequentially  organized  files  stored  on  magnetic 
tape  are  updated,  a new  tape  Is  created  and  the  old  tape  pro- 
vides the  backup.  Sequentially  organized  files  on  disks  can  be 
updated  by  developing  and  storing  the  new  file  in  a separate 
section  of  disk  storage,  or  by  writing  the  new  records  in  the 
original  locations.  But  this  latter  procedure  creates  a backup 
problem.  One  solution  is  to  read  the  old  file  onto  magnetic 
tape  prior  to  the  updating  operation. 

• If  a large  number  of  records  within  a file  are  normally 
accessed  at  a given  time,  the  sequential  access  method  can  per- 
mit faster  and  more  efficient  processing  than  the  direct-access 
method  while  providing  reasonably  fast  access  to  stored  data 
when  only  a few  records  are  to  be  accessed. 

1.11.2  INDEXED  FILE  ORGANIZATION  (IBM  EXTENSION).  The  position 
of  each  logical  record  in  a file  is  determined  by  indexes  main- 
tained by  the  system  and  created  with  the  file.  The  indexes  are 
based  on  keys  provided  by  the  user.  Indexed  files  may  be 
processed  both  randomly  and  sequentially. 
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1.11.3  RANDOM  FILE  ORGANIZATION. 

• When  files  are  organized  on  a random  basis,  successive 
records  are  not  stored  in  sequential  order  nor  even  necessarily 
in  adjacent  storage.  Each  record  is  located  at  an  address  which 
is  computed  by  a randomizing  process. 

• Rewriting  an  entire  file  when  additions  or  deletions  are 
made  is  not  necessary.  Transaction  data  need  not  be  batched  or 
presorted  prior  to  processing. 

• Random  file  organization  is  usually  best  suited  for 
situations  in  which  large  files  are  to  be  handled,  the  number  of 
transactions  per  time  period  is  not  large  and  very  fast  process- 
ing is  desirable. 


1.11.4  ELEMENTS  OF 
discussion  of  file 

FILE  DESIGN, 
organization. 

FIGURE  1-1 
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1.11.5  FILE  DESIGN  CONSIDERATIONS. 

1.11.5.1  Interactive  Factors.  A number  of  interactive  factors 
must  be  considered  in  designing  a file.  These  file  design 
considerations,  which  are  listed  below,  are  closely  related  and 
no  decision  should  be  made  in  isolation.  The  first  four  consid- 
erations are  program  independent.  The  considerations  are  listed 
in  the  order  they  might  logically  occur,  not  in  order  of 
significance.  For  example,  a block  size  might  be  crucial  on  a 
small  configuration,  but  trivial  on  a large  one. 
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Which  data  items  make  up  a 
record;  which  records  make  up  a 
file. 


* DATA  CONTENT 


Random  or  sequential;  if  sequea 
tial,  what  sequence. 


* SEQUENCE 


Fixed  or  variable  length 
records;  location  of  data  items 
within  the  record. 


* FORMAT 


Sequential,  indexed  or  random 


* PROCESSING  MODE 


* SECURITY 


* RESTART  POINTS 


* DEVICES  AVAILABLE 


* BUFFERING 


* BLOCK  SIZE 


1.11.5.2  Hit  Ratio.  The  hit  ratio,  which  is  a mathematical 
function  used  to  describe  file  activity,  is  widely  used  to 
determine  file  organization. 

number  of  records  accessed 
number  of  records  on  file 


• Hit  Ratio 


• Just  as  the  file  design  factors  listed  before  are  not 
independent  of  each  other,  hit  ratio  cannot  be  considered  by  it- 
self. For  example,  time  and  type  of  activity  can  both  influence 
hit  ratio.  Does  the  input  activity  have  a peak  or  heavy 
activity?  Is  there  a season  or  cycle?  Perhaps  on  a given  day 
only  5%  of  customers  on  a file  place  an  order  but  60%  of  the 
customers  may  be  billed.  The  user  has  two  hit  ratios  to 
consider. 


• There  are  other  factors  at  work  which  can  be  mentioned 
in  passing  such  as  track  hit  ratio,  I/O  message  ratio,  file 
volatility  and  overflow  characteristics. 
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1.11.5.2  Hit  Ratio.  (Coat.) 

• Therefore,  the  hit  ratio  Is  not  a simple  construct  which 
stands  alone.  The  file  designer  must  consider  many  other 
factors  that  are  interactive. 

1.11.5.3  Misleading  Rules  of  File  Design. 

• If  hit  ratio  is  low,  update  the  file  randomly,  otherwise 
sequentially. 

THE  CHOICE  here  is  apparently  between  randomly  updating 
hit  records  in  position  and  updating  the  entire  file.  But  there 
are  other  factors  to  take  into  consideration.  For  example, 
random  processing  infers  the  entire  file  to  be  on-line  to  the 
CPU;  further  if  fast  restart  recovery  procedures  are  required, 
the  dumping  of  the  original  file  records  demands  further  second- 
ary storage.  All  of  this  required  storage  space  may  not  be 
available . 


ANOTHER  SOLUTION  to  the  sequential  versus  random  dilemma 
may  be  to  split  the  file  into  hit  and  non-hit  (or  infrequently 
hit)  sections.  In  this  case,  processing  sequentially  the 
infrequently  referenced  data  at  less  frequent  intervals  might  be 
justif iable. 

CONVERSELY,  RANDOM  PROCESSING  might  be  used  in  a high 
hit  ratio  situation.  For  example,  if  data  cause  a high  degree 
of  interaction  among  separate  files,  then  one-shot  processing 
might  be  desirable  whereby  the  data  updates  one  file  sequen- 
tially and  the  remaining  files  randomly. 

• If  hit  ratio  is  low,  use  indexed-sequential ; else,  use 
sequential  processing. 

IF  THE  FILE  is  highly  volatile  or  has  severe  overflow 
characteristics,  whatever  the  hit  ratio,  another  organization 
would  probably  be  chosen. 

• If  the  hit  ratio  is  low,  use  disk;  otherwise,  magnetic 

tape. 

THIS  AXIOM  is  the  most  general  of  all  and  embodies  con- 
fusion between  file  organization  methods,  processing  methods 
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and  devices.  File  organization  and  processing  were  discussed 
above  and  therefore  it  remains  to  compare  disk  and  tape  for 
sequential  processing. 


DISKS  are  faster  than  most  tapes  when  sequentially 
processing;  thus  a tight  time  requirement  might  favor  disks. 
Additionally,  sequentially  processing  disk  might  require  fewer 
devices  than  a similar  tape  system. 


EVEN  SEQUENTIAL  DISK  FILES  can  have  characteristics  of 
direct  access  when  required,  if  only  by  the  "binary  search" 
technique;  this  facility  might  save  passes  of  the  file.  For 
example,  amendments  to  record  keys  can  require  that  the  file  be 
resequenced  in  the  current  run;  a tape  file  will  require  an 
extra  pass  whereas  the  direct  access  facility  can  be  used  to 
avoid  this  for  the  disk  version. 


THESE  AND  OTHER  ARGUMENTS  favor  disk  sequential 
processing;  but  on  the  other  hand,  tape  sequential  processing  is 
often  more  economical. 


1.11.6  INPUT  MEDIA. 


1.11.6.1  Console.  The  console  typewriter  will  not  be  used  as 
an  input  media  by  application  programs  except  where  necessary 
for  runtime  conditions  such  as  intervention  on  peripherals.  Only 
conditions  which  cannot  be  determined  prior  to  the  job  being  read 
into  the  computer  can  be  entered  on  the  console  typewriter. 
Approval  must  be  obtained  from  TESD  prior  to  the  console  being 
used  as  an  input  device. 


1.11.6.2  Tape.  All  tape  data  files  created  by  CSC  standard 
systems  must  employ  standard  labels  as  described  in  the  appro 
priate  vendor’s  reference  manual. 


1.11.6.3  Card.  Card  records  will  be  defined  as  80  character 
records.  ASD's  will  employ  card-to-tape  or  card-to-disk  util 
ities  for  all  large  volume  card  inputs. 


1.11.6.4  Direct  Access  Storage  Devices.  Direct  access  devices 
provide  retrieval  facilities  for  sequential,  indexed,  and 
direct  file  organization  structures. 
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1.11.7  OUTPUT  MEDIA. 

1.11.7.1  Printer.  Output  data  destined  for  printing  will  not  be  assigned 
by  a program  to  a systems  printer.  Such  a technique  causes  the  program  to 
run  at  the  speed  of  the  printer  (a  relatively  slow  unit  record  device) 

and  makes  program  execution  dependent  upon  the  availability  of  the  printer. 

The  printer  output  will  be  assigned  to  the  appropriate  symbolic  device 
depending  on  the  target  operating  system.  When  the  target  operating 
system  does  not  have  device  independence  nor  an  automatic  spool  intercept 
capability,  the  printer  output  must  be  assigned  to  tape  or  disk  depending 
on  the  hardware  configuration  (refer  to  USACSCM  18-2  series  Executive 
Software  Manual  for  Standardized  SPOOL  Utility  interface  specifications) . 

The  file  descriptions  must  be  designed  to  be  compatible  across  these 
operating  systems  by  proper  use  of  the  single  source  library  system 
described  in  CHAPTER  2.  Each  report  or  listing  not  printed  on  preprinted 
special  forms  will  be  programed  to  provide  the  information  requested  below. 

1.11.7.1.1  Security  Classification.  If  the  printed  report  is  classified, 
the  level  ofclassification  (CONFIDENTIAL,  SECRET,  etc.)  will  be  centered 
at  the  top  and  bottom  of  each  page.  No  other  information  will  be  on  the 
classification  lines.  When  programs  which  produce  classified  printed  out- 
put are  in  a text  status  using  other  than  live  data,  the  classification 
will  be  replaced  with  UNCLASSIFIED  which  occupies  the  same  number  of 
positions  as  the  actual  classification.  The  downgrading  of  the 
classification  will  be  programmatically  controlled  during  the  test  phase. 

1.11.7.1.2  First  Header  Line.  The  first  header  line  of  each  page  will 
contain,  as  the  first  entry  at  the  extreme  left  of  the  line,  the  word 
"PREPARED"  followed  by  the  current  date  in  the  form  of  two  numeric 
character  day,  three  to  nine  alphabetic  character  month,  two  numeric 
character  year.  The  title  of  the  report  will  be  centered  on  this  line. 

The  Report  Control  System  (RCS)  and  the  Product  Control  Number  (PCN) 
will  print  following  the  title  or  at  the  extreme  right  of  the  line. 

The  literal  "PCN  and/or  "RCS"  will  precede  its  associative  data  * 

elements  by  one  space  (i.e.,  PCN  to  AAA-A01 , RCS  to  AAA-A01) . If  an 
as-of-date  is  required,  it  should  appear  following  the  RCS  and/or 
PCN.  As-of-date  is  categorized  as  constant  data  which  varies  by 
reporting  cycle. 
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1.11.7.1.3  Remaining  Header  Lines.  Remaining  header  lines  will 
describe  all  columns  of  data  that  are  contained  in  the  report. 

The  descriptions  will  be  short  words  and/or  meaningful  abbrevia- 
tions. Common  descriptions  within  a system  will  be  used. 

1 

1.11.7.1.4  Detail  Lines.  The  actual  report  lines  contained  in 
the  body  of  each  page  will  be  formatted  according  to  the  report 
specifications.  When  total  lines  are  required  within  a report, 
the  total  line(s)  should  not  be  split  across  pages. 

1.11.7.1.5  Page  Line.  The  last  line  of  each  page  or,  in  the 
case  of  classified  reports,  the  next  to  the  last  line  of  each 
page,  will  contain  the  word  PAGE  to  the  right  of  the  page 
followed  by  the  page  number.  The  final  page  of  the  report  will 
contain  the  word  END  preceding  the  PAGE. 

1.11.7.1.6  Spacing.  The  standard  vertical  spacing  for  all 
printed  output  will  be  six  or  eight  lines  per  inch  and  the  stan- 
dard carriage  control  tape  will  be  used  for  all  printing.  The 
use  of  non-standard  carriage  tapes  (for  use  with  forms  other 
than  standard  1413  or  11  inch  deep  paper)  is  not  authorized. 

Special  form  spacing  will  be  under  program  control. 

1.11.7.1.7  Skipping.  See  FIGURE  1-2. 
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1.11.7.2  Punch.  Output  data  destined  for  punching  will  not  be 
assigned  by  a program  to  a systems  punch.  Such  a technique 
causes  the  program  to  run  at  the  speed  of  the  punch  (a  very  slow 
unit  record  device)  and  makes  program  execution  dependent  upon 
the  availability  of  the  punch.  The  guidelines  for  the  device 
assignment  of  punch  output  is  the  same  as  for  the  printer. 


1.11.7.3  Tapes  and  Direct  Access  Storage  Devices, 
applicable  paragraphs  under  Input  Media. 


Reference 


1.11.8  PROGRAM  TO  OPERATOR  MESSAGES.  Program  messages  will  be 
displayed  upon  either  SYSLST  or  the  console  as  follows. 

1.11.8.1  Format.  See  FIGURE  1-3. 
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1.11.8.2  Program  ID. 
USACSCM  18-1,  VOL  I. 


Will  be  program  name  in  accordance  with 


1.11.8.3  Message  Number.  Messages  will  be  numbered  in  sequence 
within  each  program.  Messages  numbered  1 through  9 will  be  pre 
ceded  by  a zero. 


1.11.8.4  Type  of  Message.  A one  position  code  indicating  the 
type  of  message.  See  FIGURE  1-4. 


CODE 


MEANING 


Information  data  as  in  run  statistics.  Print 
on  SYSOUT  (OS) /SYSLST  (DOS)  only. 


FIGURE  1-4 
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FIGURE  1-4  (Cont.) 


1.11.8.5  Halts.  Halts  will  not  be  used  by  the  programer  except 
for  conditions  which  prohibit  continuation  of  a run  (i.e.,  out 
of  sequence  files).  Halt  messages,  when  used,  shall  be  short 
and  concise.  All  halts  must  be  fully  documented  with  stated 
recovery  procedures  for  the  system  coordinator. 

• The  console  operating  instructions  will  specify  the 
corrective  processing  actions  required  for  each  programed  com- 
puter run  halt.  Following  are  examples  of  halt  conditions: 

SEQUENCE  ERROR  HALTS 

DATA  CONSTANT  CONTROL  CARD  HALTS 

END-OF-JOB  HALTS 

OPERATING  SYSTEM  HALTS 


OTHER  PROGRAMED  HALTS 


UNPROGRAMED  HALTS 


1.11.9  RECOVERY  GUIDANCE.  Every  program  must  have  documented 
procedures  describing  the  recovery  operations  required  when  a 
program  is  abnormally  terminated.  Program  Check  Point/Recovery 
standards  and  procedures  are  given  in  USACSCM  18-1,  VOL  I. 


1.11.10  ERROR  CONDITION  OPTIONS.  Error  conditions  disclosed  as 
a result  of  auxiliary  checking,  i.e.,  cycle  sequence  validation 
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1.11.10  ERROR  CONDITION  OPTIONS.  (Cont.) 

on  header  labels,  balancing,  etc.,  must  be  programed  to  pause  and 
wait  for  the  operator’s  response  to  a programed  message  which 
allows  for  termination  (error)  or  acceptance  (continue  computer 
run) . 

1.11.11  CONSOLE  SWITCHES.  Console  switches  will  not  be  used 
since  their  use  restricts  the  transferability  of  programs  across 
vendor  lines.  Control/Parameter  cards  should  be  used  when  pro- 
gram operation  is  to  be  externally  varied. 

1.11.12  UTILITY  PROGRAMS  AND  SUBROUTINES. 

• For  utility  program  usage  and  availability,  reference 
the  appropriate  USACSCM  18-2  Executive  Software  Manual  and/or  the 
appropriate  Vendors  Utility  Manual. 

• For  subroutine  availability  and  usage,  reference  the 
appropriate  USACSCM  18-2  Executive  Software  Manual. 
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2.2  INTRODUCTION.  In  the  past,  program  development  has,  to  a 
large  extent,  been  characterized  by  what  can  be  called 
AUTONOMOUS  growth.  That  is  each  system,  at  best,  developed 
their  own  language  concepts  and  standards,  usually  independent 
of  any  other  system.  In  a Uniform  Automated  Data  Processing 
environment  this  type  of  development  leads  to  redundant  effort, 
inconsistent  guidelines  and  tends  to  compound  the  problems  of 
programer  training  and  program  maintenance.  A further  ingredient 
that  is  missing,  which  is  essential  to  a Standard  Army  Data 
System  environment,  is  the  concept  of  central  control.  These 
standards  have  been  developed  in  order  to  achieve  the  following 
objectives: 

• Program  Maintainability. 

• Program  Portability  and  Transferability. 

• Programer  Training  and  Understanding. 

• Central  Control  (STADS) . 

• Management  Flexibility. 

2.2.1  PURPOSE  OF  USACSC  ANS-COBOL  LANGUAGE  SPECIFICATIONS. 
CHAPTER  2 is  constructed  to  be  a stand-alone  document  within  the 
total  presentation  of  the  General  Programing  Standards.  This 
recognizes  that  some  readers  of  this  manual  are  mainly  concerned 
with  the  COBOL  concepts.  Therefore,  the  USACSC  COBOL  specifica- 
tions contained  in  this  chapter  are  intended  to  provide  CSC  per- 
sonnel, who  are  involved  in  STADS  development,  with  the  rules  of 
the  language  described  in  a source  program  environment.  It  is 
also  the  intent  to  provide,  as  much  as  possible,  independence 
from  hardware  considerations.  Therefore,  this  section  provides 
the  user  with  a convenient  source  for  determining  the  syntax  and 
behavior  rules  for  the  elements  of  COBOL. 
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2.3  LANGUAGE  CONVENTIONS. 


2.3.1  GLOSSARY.  The  definitions  of  the  COBOL  terms  in  the 
Glossary  are  provided  merely  as  reference  material  or  introduc- 
tory material.  The  definitions  are  therefore  brief  and  do  not 
give  any  detail  of  syntactical  rules.  Most  of  the  terms  are 
further  discussed  in  other  areas  of  this  manual.  Refer  to 
ATTACHMENT  1 for  Glossary  Definitions. 


2.3.2  LANGUAGE  STRUCTURE.  The  individual  characters  of  the 
language  are  concatenated  to  form  character-strings  and  separa- 
tors. A separator  may  be  concatenated  with  another  separator 
or  with  a character-string.  A character-string  may  only  be 
concatenated  with  a separator.  The  concatenation  of  character- 
strings  and  separators  forms  the  text  of  a source  program. 


2. 3. 2.1  Separators.  The  space  and  punctuation  characters,  when 
not  used  as  literals,  are  separators.  More  than  one  space  may 
be  used  as  a separator.  The  space  may  be  used  with  other  sepa- 
rators as  defined  as  follows: 


2. 3. 2. 2  Punctuation  Characters.  In  order  for  the  punctuation 
characters  period,  comma  and  semicolon  to  be  used  as  separators, 
a space  must  immediately  follow. 


2. 3. 2. 3  Quotation  Marks.  When  using  quotation  marks,  a separa- 
tor other  than  a quotation  mark  is  required  immediately  to  the 


rnssmsm 


left  of  an  opening  quotation  mark  and  immediately  to  the  right 
of  a closing  quotation  mark. 


2. 3. 2. 4  Character-String.  A character-strii 
contiguous  characters  used  to  form  a literal 
character-string,  or  a comment  character-str 


2. 3. 2. 5  Separators.  A character-string  is  delimited  by  the 
separators*  space,  period,  right  parenthesis,  comma  and  semi- 
colon. A space  must  follow  the  period,  comma  or  semicolon.  A 
space  must  i^ot  immediately  follow  a left  parenthesis  nor  immedi- 
ately precede  a right  parenthesis.  When  using  a PICTURE  char- 
acter-string, the  separators  used  as  delimiters  are  the  space, 
period  or  semicolon.  A space  must  not  appear  within  the  PICTURE 
character-string. 
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2.3.3  WORDS. 

2. 3. 3.1  Definition  of  a Word.  A word  la  made  up  of  a combina- 
tion of  not  more  than  30  characters  selected  from  the  character 
set  for  words.  The  first  or  the  last  character  cannot  be  a 
hyphen.  The  space  is  not  an  allowable  character  within  a word; 
the  space  is  a word  separator. 

2. 3. 3. 2 Types  of  Words.  There  are  two  basic  types  of  words:  reserved 
words  and  user-defined  words.  User- defined  words  must  be  distinct  from 
all  reserved  words.  The  user-defined  word  must  begin  with  an  alphabetic 
character,  must  be  unique  and  must  not  be  qualified. 

2. 3. 3. 2.1  Reserved  Words.  Refer  to  ATTACHMENT  2 for  Reserved  Words 
List. 


• A KEY  WORD  is  a word  that  is  required  when  the  format 

in  which  it  appears  is  used  in  a source  program.  In  this  manual, 
key  words  are  upper-case  and  underlined. 

• An  OPTIONAL  WORD  is  a word  that  is  included  in  a format 
only  to  improve  the  readability.  The  presence  or  absence  of  an 
optional  word  does  not  alter  the  semantics  of  the  format.  These 
words  appear  in  this  manual  as  upper-case  words  that  are  not 
underlined. 

• There  are  three  types  of  CONNECTIVES:  qualifier  connec- 
tives, series  connectives  and  logical  connectives. 

The  qualifier  CONNECTIVES  are  used  to  associate  a data- 
name  or  paragraph-name  with  its  qualifier.  The  qualifier  connec- 
tives are  OF  and  IN. 

The  series  CONNECTIVE  is  used  to  link  two  or  more 
operands.  The  series  connective  is  the  comma. 

The  logical  CONNECTIVES  are  used  in  compound  conditions. 
The  logical  connectives  are  AND,  OR,  AND  NOT  and  OR  NOT. 

• All  SPECIAL  REGISTERS  are  compiler-generated  storage 
areas  that  are  primarily  used  to  store  information  produced  with 
the  use  of  specific  COBOL  features. 
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2. 3. 3. 2.1  Reserved  Words.  (Cont.) 


The  TALLY  is  a special  register  whose  implicit  descrip- 
tion is  that  of  an  integer  of  five  digits  without  an  operational 
sign  and  whose  implicit  usage  is  COMPUTATIONAL.  The  primary  use 
of  the  TALLY  register  is  to  hold  information  produced  by  the 
EXAMINE  statement.  TALLY  may  also  be  used  as  a data-name 
wherever  an  elementary  data  item  of  integral  value  may  appear. 


• All  FIGURATIVE  CONSTANTS  are  constants  to  which  fixed 
data-names  have  been  assigned.  These  data-names  must  not  be 
enclosed  in  quotation  marks  when  used  as  figurative  constants. 
The  singular  and  plural  forms  of  figurative  constants  are  equiv- 
alent and  may  be  used  interchangeably.  Whenever  a literal 
appears  in  a format,  a figurative  constant  may  be  used  in  its 
place.  There  is  one  exception:  If  the  literal  is  restricted  to 
numeric  characters,  only  the  figurative  constant  ZERO  (ZEROS, 
ZEROES)  is  allowed. 


• The  fixed  DATA-NAMES  and  their  meanings  are  as  listed  in 


FIGURE  2-1 


ZERO 

ZEROS 

ZEROES 

Represents  one  or  more  of  the  character  of  0, 
depending  on  context. 

SPACE 
| SPACES 

Represents  one  or  more  blanks  or  spaces. 

HIGH-VALUE 

HIGH-VALUES 

Represents  one  or  more  of  the  characters  which  are  of 
the  highest  value  in  a computer's  collating  sequence. 

LOW-VALUE 

LOW-VALUES 

Represents  one  or  more  of  the  characters  which  are  of 
the  lowest  value  in  a computer's  collating  sequence. 

QUOTE 

QUOTES 

Represents  one  or  more  of  the  character  ".  The  word  j 

QUOTE  (QUOTES)  cannot  be  used  in  place  of  a quotation 
mark  in  a source  program  to  enclose  a nonnumeric 
literai. 

ALL  literal 

Represents  one  or  more  of  the  string  of  characters 
comprising  the  literal.  The  literal  must  be  either  a 
nonnumeric  literal  or  a figurative  constant  other  than 
ALL  literal.  When  a figurative  constant  is  used,  the 
word  ALL  is  redundant  and  is  used  for  readability  only. 

m'  - ■ 
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2. 3. 3. 2.1  Reserved  Words.  (Cont.) 

• When  a FIGURATIVE  CONSTANT  is  used  to  represent  a string 
of  one  or  more  characters,  the  length  of  the  string  is  deter- 
mined by  the  compiler  from  context  according  to  the  following 
rules : 

When  the  FIGURATIVE  CONSTANT  is  associated  with  another 
data  name,  as  when  the  figurative  constant  is  moved  to  or  com- 
pared with  another  data  item,  the  string  of  characters  specified 
by  the  figurative  constant  is  repeated  character  by  character  on 
the  right  until  the  size  of  the  resultant  string  is  equal  to  the 
size  of  the  associated  data  item. 

When  the  FIGURATIVE  CONSTANT  is  not  associated  with 
another  data  item,  such  as  when  the  figurative  constant  appears 
in  a DISPLAY,  or  EXAMINE,  the  length  of  the  string  is  one  char- 
acter. The  figurative  constant  ALL  literal  may  not  be  used  with 
DISPLAY,  or  EXAMINE. 

2. 3. 3. 2. 2 User-Defined  Words. 

• A LITERAL  is  a string  of  characters  whose  value  is 
determined  by  the  ordered  set  of  characters  of  which  the  literal 
is  composed.  There  are  two  types  of  literals,  numeric  and  non- 
numeric. 

A NUMERIC  LITERAL  is  a string  of  characters  selected 
from  the  digits  0 through  9,  the  plus  sign,  the  minus  sign  and 
the  decimal  point.  Numeric  literals  may  be  up  to  18  characters 
in  length.  The  rules  for  the  formation  of  numeric  literals  are 
as  follows: 


A NUMERIC  LITERAL  must  not  contain  more  than  one  sign 
character.  If  a sign  is  used,  it  must  appear  as  the  leftmost 
character.  If  the  literal  is  unsigned,  it  is  assumed  positive. 

A NUMERIC  LITERAL  must  not  contain  more  than  one  deci- 
mal point.  The  decimal  point  is  treated  as  an  assumed  decimal 
point,  and  may  appear  anywhere  within  the  literal  except  as  the 
rightmost  character.  If  the  literal  does  not  contain  a decimal 
point,  it  is  considered  to  be  an  integer.  The  value  of  a 
numeric  literal  is  the  algebraic  quantity  represented  by  the 
characters  in  the  numeric  literal.  Every  numeric  literal  is 
category  numeric.  If  the  literal  conforms  to  the  rules  for  the 
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2. 3. 3. 2. 2 User-Defined  Words.  (Cont.) 

formation  of  numeric  literals,  but  is  also  enclosed  in  quotation 
marks,  it  is  then  considered  to  be  a nonnumeric  literal  by  the 
compiler. 

A NONNUMERIC  LITERAL  is  a string  of  allowable  characters 
belonging  to  CSC  character  set,  excluding  the  character  quota- 
tion marks,  bound  by  quotation  marks.  A nonnumeric  literal  may 
be  made  up  from  1 to  120  characters  enclosed  in  quotation  marks. 
Although  IBM  allows  the  apostrophe  (single  quota)  to  be  used  in 
lieu  of  quotation  marks  (double  quotes) , only  the  ANSI  standard 
quotation  marks  (")  will  be  used.  Any  spaces  that  are  enclosed 
in  the  quotation  marks  are  considered  a part  of  the  nonnumeric 
literal,  and  therefore  part  of  the  value.  Every  nonnumeric 
literal  is  placed  in  the  category  alphanumeric. 


• A DATA-NAME  is  a word  that  contains  at  least  one  alpha- 
betic character  and  does  not  begin  with  a hyphen  and  names  an 
entry  in  the  DATA  DIVISION. 


• A CONDITION-NAME  is  a word  which  is  assigned  to  a speci- 
fic value,  set  of  values,  or  range  of  values  within  the  complete 
set  of  values  that  a data-item  may  assume.  The  CONDITION -NAME 
is  called  a conditional  variable. 


• The  CONDITION-NAME  is  used  in  conditions  as  a abbrevia- 
tion for  the  relation  condition;  the  relation  condition  assumes 
that  the  associated  conditional  variable  is  equal  to  one  of  the 
set  of  values  to  which  that  CONDITION-NAME  is  assigned. 


• A PROCEDURE-NAME  is  a word  used  to  name  a paragraph  or  a 
section  which  is  used  in  the  PROCEDURE  DIVISION.  A procedure- 
name  may  be  composed  solely  of  numerics,  but  is  equivalent  to 
another  procedure-name  only  if,  they  are  both  composed 

of  the  same  number  of  digits  and  have  the  same  numerical  value. 

• A MNEMONIC-NAME  is  used  to  assign  a user-defined  word 
to  an  implementor-name.  These  associations  are  established  in 
the  SPECIAL-NAMES  paragraph  of  the  ENVIRONMENT  DIVISION.  This 
association  allows  the  user  to  substitute  the  mnemonic-name  for 
the  implementor-defined  name  in  any  format  where  a substitution 
is  valid. 
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2.3.4  CONCEPTS  OF  DATA  REFERENCE. 

2.3.4. 1 Logical  Record  and  File  Concept.  The  approach  of  dis- 
tinguishing between  the  physical  aspects  of  the  file  and  the 
conceptual  characteristics  of  the  data  contained  within  the  file 
is  taken  In  defining  file  information. 

The  physical  aspects  of  a file  describe  the  data  as  It 
appears  on  the  input  or  output  media,  such  as  mode  in  which  the 
data  file  is  recorded  on  the  external  medium,  grouping  of  logi- 
cal records  within  the  physical  limitations  of  the  file  medium, 
and  a means  by  which  a file  can  be  identified. 

The  conceptual  characteristics  of  a file  are  the  defi- 
nition of  each  logical  entity  within  the  file  Itself.  The 
LOGICAL  RECORD  is  a group  of  related  Information,  uniquely  Iden- 
tifiable and  treated  as  a unit.  The  Input  and  output  statements 
pertain  to  one  logical  record. 

A physical  unit  of  Information  whose  size  and  recording 
mode  is  convenient  to  a particular  computer  for  the  storage  of 
data  on  an  Input  or  output  device  defines  a PHYSICAL  RECORD.  The 
size  of  a PHYSICAL  RECORD  is  dependent  on  the  hardware  and  has  no 
relationship  with  the  size  of  the  file  of  Information  contained 
on  a device. 

A physical  unit  may  consist  of  one  or  more  logical 
records.  Also,  in  the  case  of  mass  storage  files,  a LOGICAL 
RECORD  may  require  more  than  one  physical  unit  to  contain  it.  In 
this  manual  references  to  'records'  refers  to  logical  records, 
unless  otherwise  specified  as  'physical  record'. 

2. 3.4.2  Concept  of  COBOL  Levels.  In  structuring  a LOGICAL 
RECORD,  a level  concept  is  inherent.  This  concept  is  necessary 
in  order  to  specify  subdivisions  of  a record.  These  subdivisions 
may  be  used  for  the  purpose  of  data  reference.  Once  a subdivi- 
sion has  been  specified,  it  may  be  further  subdivided  in  order 

to  permit  more  detailed  data  reference. 

The  elementary  items  are  the  most  basic  subdivisions. 
They  cannot  be  further  subdivided.  A record  consists  of  a 
sequence  of  elementary  items  or  the  record  itself  may  be  an 
ELEMENTARY  ITEM. 
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2. 3. 4. 2 Concept  of  COBOL  Levels.  (Cont.) 

A set  of  elementary  items  can  be  combined  into  a group. 
Each  group  is  made  up  of  a sequence  of  one  or  more  elementary 
items.  Groups  may  be  combined  together  into  other  groups. 
Therefore,  an  ELEMENTARY  ITEM  may  belong  to  more  than  one  group. 

2. 3.  A. 3 Level-Numbers.  A LEVEL-NUMBER  is  used  to  show  the 
organization  of  an  elementary  item  and  a group  item.  All  level- 
numbers  for  records  start  at  01,  and  less  inclusive  data  items 
are  assigned  higher  level-numbers  not  greater  than  A9. 

A group  includes  all  group  and  elementary  items  follow- 
ing it  until  a level-number  less  than,  or  equal  to,  the  level- 
number  of  that  group  is  encountered.  All  items  which  are 
immediately  subordinate  to  a given  group  item  must  have  level- 
numbers  greater  than  the  level-number  of  that  given  group  item. 

There  are  special  LEVEL-NUMBERS  66,  77,  and  88  which  are 
exceptions  to  the  above  rules.  There  is  no  true  concept  of  level 
for  these  entries. 

The  LEVEL-NUMBER  66  is  used  for  entries  which  describe 
items  by  means  of  a RENAMES  clause.  This  level-number  is  used 
for  the  purpose  of  regrouping  data  items.  However,  level-number 
66  is  not  a part  of  CSC  COBOL. 

The  LEVEL-NUMBER  77  is  used  for  entries  that  specify 
noncontiguous  data  items.  These  data  items  are  not  subdivisions 
of  other  items,  nor  are  they  themselves  subdivided. 

The  LEVEL-NUMBER  88  is  used  for  entries  that  specify 
condition-names.  These  entries  are  to  be  associated  with  parti- 
cular values  of  a conditional  variable. 

2. 3.  A. A Concept  of  Classes  of  Data.  All  data  items  are  grouped 
into  three  classes,  alphabetic,  numeric  and  alphanumeric. 

For  alphabetic  and  numeric,  the  class  and  the  category 
of  the  data  item  are  synonymous. 

The  class  of  alphanumeric  includes  the  categories 
numeric -edited,  alphanumeric-edited  and  alphanumeric  (without 
editing) . 


liiTal 

JaskiSm 


- 


>y'  I.  > ‘V  '< 

k. 


2-9 


CSCM  18-1-1 


1 FEB  79 


Group  level  Items  are  treated  at  object  time  as  alpha- 
numeric regardless  of  the  class  of  the  elementary  Items  subordi- 
nate to  that  group  Item. 

The  following,  FIGURE  2-2,  shows  the  relationship  of 
the  class  and  categories  of  data  Items. 


FIGURE  2-2 


! 


2. 3.4.5  Algebraic  Signs.  There  are  two  purposes  for  algebraic 


signs.  They  are  used  to  show  whether  the  value  of  an  Item 
Involved  In  an  operation  Is  positive  or  negative  and  also  used  to 
identify  an  Item  for  an  edited  report  as  being  positive  or 
negative. 
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2. 3. 4. 5 Algebraic  Signs.  (Cont.) 

The  signs  used  with  the  item  for  an  edited  report  are 
not  operational  signs,  but  are  used  only  to  display  the  sign  of 
an  item. 

The  editing  signs  are  inserted  into  a data  item  through 
the  use  of  the  sign  control  symbols  of  the  PICTURE  clause. 

The  SIGN  clause  is  used  to  state  explicitly  the  loca- 
tion of  the  operational  sign  in  a DISPLAY  item.  If  the  clause 
is  not  used,  the  operational  sign  is  represented  as  defined  by 
the  implementor. 

2. 3. 4. 6 Qualification  of  Name.  Every  name  in  a COBOL  source 
program  must  be  unique.  It  must  be  made  unique  by  making  sure 
that  no  other  name  has  the  identical  spelling  and  hyphenation. 
Qualification  as  a means  of  making  a name  unique  is  allowed  only 
in  conjunction  with  COPY  libraries  or  MOVE  CORRESPONDING. 

2. 3. 4. 7 Subscripting.  When  there  is  a need  to  make  reference 
to  an  individual  element  within  a list  or  table  of  like  elements 
that  have  not  been  assigned  individual  data-names,  subscripting 
can  be  used. 

An  INTEGER  or  a DATA  ITEM  whose  description  is  that  of 
an  integer  may  be  used  to  represent  a subscript.  No  subscript 
can  itself  be  subscripted.  The  lowest  possible  value  for  a sub- 
script is  one  (1).  This  is  the  first  element  in  a table.  The 
values  2,  3,  etc.  are  used  for  the  next  sequential  elements  of 
that  table.  The  highest  permissible  subscript  value  for  any 
particular  table  is  the  maximum  number  of  occurences  of  the  item 
that  are  specified  in  the  OCCURS  clause. 

Parentheses  are  used  to  enclose  the  subscript  or  set  of 
subscripts  which  follow  the  table  element  data-name  which  it 
identifies.  When  a table  element  data-name  is  appended  by  a 
subscript,  it  is  called  a subscripted  data-name  or  an  identifier. 
When  more  than  one  subscript  is  needed,  the  subscripts  are 
written  in  the  order  of  successively  less  inclusive  dimensions  of 
the  data  organization.  A comma  must  be  used  to  separate  sub- 
scripts in  a series. 
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2. 3. 4. 7 Subscripting.  (Cont.) 

The  general  format  for  subscripting  Is: 


data-name 


condition-name 


^ ^subscript  [ , subscript  ] 


2. 3. 4. 8 Indexing.  References  to  individual  elements  within  a 
table  of  like  elements  can  also  be  made  by  specifying  indexing. 
This  is  done  by  using  an  INDEXED  BY  clause  in  the  definition  of 
a table.  The  name  will  be  used  to  index  the  table  and  is 
referred  to  as  an  index  data-name.  This  index  data-name  must  be 
initialized  by  either  a SET,  SEARCH,  ALL  or  PERFORM  statement 
before  it  can  be  used  to  reference  the  table. 

There  are  two  kinds  of  indexing:  direct  indexing  and 
relative  indexing.  Direct  indexing  is  in  the  form  of  sub- 
scripting. Relative  indexing  is  specified  when  an  index  data 
name  is  followed  by  a space,  followed  by  one  of  the  operators 
+ or  -,  followed  by  another  space,  followed  by  an  unsigned 
numeric  literal,  all  enclosed  within  parentheses  after  the  index 
data-name.  When  more  than  one  index  data-name  is  required,  they 
are  written  in  the  order  of  successively  less  inclusive  dimen- 
sions of  the  data  organization.  A comma  may  be  used  to  separate 
indices  in  a series. 

The  general  format  for  direct  indexing  is : 


r . -\ 

data-name 


> ( index  data  name  [ , index  data  name  ] ...) 


condition-name 
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The  general  format  for  relative  indexing  is 


data-name 


index  data  name 


condition-name 


index  data  name 


For  a further  discussion  of  subscripting  and  indexing 
see  Table  Handling  Paragraph. 


2.3.5  CSC  COBOL  REFERENCE  FORMAT 


2. 3. 5.1  General  Description  of  Reference  Format.  The  reference 
format  is  used  to  provide  a standard  method  for  describing  COBOL 
source  programs.  The  reference  format  is  described  in  terms  of 
character  positions  in  a line  on  an  input-output  medium.  The 
format  consists  of  a standard  80-column  punched  card  of  which 
each  of  the  80-columns  represents  a character  position.  The 
COBOL  compiler  accepts  source  programs  written  in  reference  for- 
mat and  produces  an  output  listing  of  the  source  program  input 
in  reference  format. 


2.3.5. 1.1  Rules.  The  rules  for  spacing  discussed  in  the  refer 
ence  format  take  precedence  over  all  other  rules  for  spacing. 


2. 3. 5. 1.2  Divisions.  The  divisions  of  a source  program  must  be 
in  the  following  order:  The  IDENTIFICATION  DIVISION,  the 
ENVIRONMENT  DIVISION,  the  DATA  DIVISION,  then  the  PROCEDURE 
DIVISION.  Each  division  must  be  written  according  to  the  rules 
for  reference  format. 
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2. 3. 5. 2 Reference  Format  Representation.  The  reference  fonnet 
for  a line  is  represented  as  follows: 


Margin  Margin  Margin 

L Cl  |* 

Margin 

B 

| 

Margin 

R 

1 

Margin 

E| 

1 1 2 3 4 5 6l  7 18  9 10 

11  112 

13. ..72*  73 

00 

• 

• 

<r 

Sequence  Number  Area  A 

Area  * 

Indicator 

Column 

Area  B 

Margin  'L' 

is 

immediately 

position 

of  a line. 

Margin  'C' 

is 

between 

the 

tlons 

of 

a line. 

Margin  'A' 

is 

between 

the 

tions 

of 

a line. 

Margin  'B1 

is 

between 

the 

tlons 

of 

a line. 

Margin  'R' 

is 

between 

the 

tlons 

of 

a line. 

Margin  'E' 

is 

immediately 

acter 

position  of  a 

line. 

left  of  the  leftmost  character 

6th  and  7th  character  posi- 
7th  and  8th  character  posl- 
11th  and  12th  character  posl- 
72nd  and  73rd  character  posi- 
rlght  of  the  rightmost  char- 


The  sequence  number  area  occupies  the  first  six  (1-6) 
character  positions  of  a line  and  is  between  Margin  'L'  and 
Margin  'C'. 


The  indicator  column  is  the  7th  character  position  of 
a line.  If  there  is  no  hyphen,  it  is  assumed  that  the  last  character 
in  the  preceding  line  is  followed  by  a space. 
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2. 3. 5. 2 Reference  Format  Representation.  (Cont.) 

Area  'A'  occupies  character  positions  8,  9,  10,  and  11 
beginning  at  Margin  'A'  and  ending  at  Margin  'B'. 

Area  'B'  occupies  character  positions  12  through  72 
beginning  at  Margin  'B'  and  ending  at  Margin  'R' . 

A program  identification  is  placed  in  your  source  list- 
ing by  the  source  library  system  in  character  positions  73 
through  80  beginning  at  Margin  'R'  and  ending  at  Margin  'E' , 
when  extracting  a source  program  from  SLS. 

2. 3. 5. 2.1  Sequence  Numbers.  A sequence  number,  consisting  of 
six  digits  in  the  sequence  number  area,  is  used  to  numerically 
label  each  card  image  in  a source  program  to  be  compiled  by  the 
COBOL  compiler.  The  use  of  coded  sequence  numbers  is  optional 
since  the  CSC  Source  Library  System  (SLS)  will  automatically 
assign  sequence  numbers  when  extracting  a source  program.  How- 
ever, it  is  recommended  that  sequence  numbers  be  assigned  when 
coding.  Sequence  numbers  should  be  incremented  by  10. 

2. 3. 5. 2. 2 Division  Header.  The  first  line  in  each  division  must 
be  the  division  header.  The  division  header  starts  at  the  left 
boundary  of  Area  'A'  (character  position  8) . The  division  header 
consists  of  the  division-name,  followed  by  a space,  the  word 
DIVISION,  and  then  a period.  No  other  text  may  appear  on  the 
same  line  as  the  division  header.  However,  if  the  program  is  to 
be  called  by  another  program,  a space  and  a USING  clause  may 
follow  the  words  PROCEDURE  DIVISION. 

2. 3. 3. 2. 3 Section  Header.  The  section  header  must  start  at  the 
left  boundary  of  Area  'A'  (character  position  8).  The  section 
header  consists  of  a section-name  followed  by  a space,  the  word 
SECTION,  and  a period.  If  program  segmentation  is  used,  a space 
and  a priority  number  followed  by  a period  (.),  may  follow  the 
word  SECTION.  No  other  text  may  appear  on  the  same  line  as  the 
section-header,  with  the  exception  of  the  COPY  sentences. 

Sections  appear  in  the  ENVIRONMENT  and  PROCEDURE 
DIVISIONS  and  as  DATA  DIVISION  entries  in  the  DATA  DIVISION. 
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2. 3. 5. 2. 4 Paragraph-Name  and  Paragraph. 

• A PARAGRAPH-NAME  starts  at  the  left  boundary  of  Area  'A' 
(character  position  8)  of  any  line  following  the  first  line  of  a 
division  or  a section.  A paragraph-name  is  followed  by  a period 
and  a space. 

• A PARAGRAPH  consists  of  a paragraph-name  followed  by  one 
or  more  sentences.  The  first  sentence  or  entry  in  a paragraph 
begins  on  the  next  line  following  the  paragraph-name  at  the  left 
boundary  of  Area  'B'  (character  position  12);  except  in  the 
IDENTIFICATION  DIVISION  and  ENVIRONMENT  DIVISION  where  the  entry 
must  be  on  the  same  line  as  the  paragraph-name  or  in  using  the 
COPY  statement  which  may  also  be  on  the  same  line  as  the 
paragraph-name.  Each  successive  sentence  in  a paragraph  must 
begin  at  the  left  boundary  of  Area  'B'  (character  position  12). 
When  a sentence  or  entries  of  a paragraph  require  more  than  one 
line,  they  may  be  continued  as  described  in  paragraph  2. 3. 5. 4.1, 
Continuation  of  Lines. 

2. 3. 5. 3 Data  Division  Entries.  Each  DATA  DIVISION  entry  begins 
with  a level  indicator  or  a level-number,  followed  by  a space, 
followed  by  a user-defined  data-name  or  the  reserved  word 
FILLER,  followed  by  a sequence  of  independent  clauses  describing 
the  data  item.  The  last  clause  is  always  terminated  by  a period 
followed  by  a space.  There  are  two  types  of  entries  in  the  DATA 
DIVISION:  those  entries  that  begin  with  a level  indicator  and 
those  entries  that  begin  with  a level  number. 

2. 3. 5. 3.1  Level  Indicators.  A LEVEL  INDICATOR  is  either  an  FD 
(file  description)  or  an  SD  (sort  description).  The  level  indi- 
cator begins  at  the  left  boundary  of  Area  'A' , followed  by  the 
associated  descriptive  clauses.  Those  DATA  DIVISION  entries  that 
begin  with  level -numbers  are  referred  to  as  data  description 
entries. 

2. 3. 5. 3. 2 Data  Description  Entries.  In  a DATA  DESCRIPTION  ENTRY 
that  begins  with  a level  01,  the  level  number  begins  at  the  left 
boundary  of  Area  'A'  (character  position  8),  followed  by  two 
spaces,  followed  by  the  associated  record-name  or  item-name,  and 
then  followed  by  its  appropriate  descriptive  clauses.  Level 
numbers  may  be  initially  taken  from  a set  of  values  01  through  49 
in  increments  of  2 (in  order  to  allow  for  future  insertions 
(i.e.,  01,  03,  05,  07,  etc.))  and  the  values  77  and  88. 
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2.3.5.3.3  Level  Numbers  01  through  49.  These  level  numbers  are 
used  to  designate  grouped  data  items  that  form  records.  Second 
level  and  successively  increasing  level  numbers  begin  in  column 
12  and  must  be  indented  two  spaces  over  from  the  preceding  level 
number;  except  no  level  numbers  will  go  beyond  column  24.  The 
associated  record-name  follows  the  level  number  by  two  spaces. 

When  a Level  Number  of  lower  value  than  the  preceding 
level  number  is  reached,  a new  group  of  data  description 
entries  is  encountered.  The  levels  for  this  new  group  of  data 
description  entries  must  then  follow  the  above  rules  for  succes- 
sively increasing  level  numbers. 

2. 3. 5. 3. 4 Level  Number  77.  This  level  number  is  used  for 
entries  that  describe  independent  data  items.  Level  77  entries 
must  precede  all  other  entries  in  the  WORKING-STORAGE  SECTION 
and  LINKAGE  SECTION  and  must  begin  at  the  left  boundary  of 
Area  'A'  (character  position  8),  followed  by  the  associated 
record-name  or  item-name  in  character  position  12,  and  then 
followed  by  its  appropriate  descriptive  clauses. 

2. 3. 5. 3. 5 Level  Number  88.  This  level  number  is  used  for 
entries  that  assign  names  to  specific  values  that  data  items  may 
assume.  The  level  number  88  must  be  coded  in  character  posi- 
tions 17  and  18,  followed  by  its  associated  record-name  or 
item-name  in  character  position  20,  and  then  followed  by  its 
appropriate  descriptive  clauses, 

2. 3. 5. 3. 6 Clause.  No  more  than  one  clause  may  be  coded  on  any 
given  card,  with  the  exception  of  the  first  clause  which  may  be 
coded  on  the  first  card  with  data-name  or  FILLER. 

2. 3. 5. 3. 7 First  Clause.  The  first  clause,  coded  in  a data 
description  entry  following  the  data-name  or  FILLER,  may  be 
coded  no  further  to  the  left  than  character  position  48  at  the 
same  (first)  card.  That  clause  may  start  to  the  right  of 
column  48  if  required  in  order  to  leave  at  least  one  space  after 
data-name  or  FILLER.  However,  no  clause  may  be  placed  on  the 
first  card  if  it  cannot  be  completed  on  that  card.  If  it  cannot 
be  completed  on  that  first  card,  it  must  be  placed  on  the  second 
card  and  must  follow  the  rules  for  the  second  and  succeeding 
clauses  as  explained  in  next  paragraph. 
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2. 3. 5. 3. 8 Clauses.  All  clauses,  coded  on  the  second  and  follow- 
ing cards,  must  be  coded  beginning  in  character  position  38,  with 
continuation  of  literals  beginning  in  character  position  2(8. 

(See  Continuation  of  Non-numeric  Literals  and  Continuation  of 
Numeric  Literals.) 

2 . 3 . 5 . 4 Continuation. 

2. 3. 5. 4.1  Continuation  of  Lines.  Any  sentence  or  entry  that 
requires  more  than  one  line  is  continued  onto  the  next  line  and 
is  started  in  character  position  16.  The  subsequent  lines  are 
called  the  continuation  line(s).  The  line  being  continued  is 
called  the  continued  line.  (This  rule  does  not  apply  for  DATA 
DIVISION  entries.) 

2. 3. 5. 4. 2 Continuation  of  Nonnumeric  Literals.  A hyphen  (-) , 
placed  in  the  indicator  column  (character  position  7)  of  the 
continuation  line,  is  used  to  indicate  the  continuation  of  a 
non-numeric  literal.  Prior  to  the  continuation  line,  the  last 
character  of  the  nonnumeric  literal  occurs  in  column  72.  A 
quotation  mark  must  be  placed  in  character  position  24  of  the 
continuation  line,  followed  by  the  continuation  of  the  nonnumeric 
literal.  The  nonnumeric  literal  must  be  enclosed  within 
quotation  marks. 

2. 3. 5. 4. 3 Continuation  of  Numeric  Literals.  A hyphen  (-) , 
placed  in  the  indicator  column  (character  position  7)  of  the 
continuation  line,  is  also  used  to  indicate  the  continuation  of 
numeric  literals.  The  numeric  literal  must  begin  on  the  contin- 
uation line  in  character  position  20.  The  first  nonblank  char- 
acter starting  at  character  position  20  of  the  continuation  line, 
is  to  follow  the  last  nonblank  character  of  the  continued  line. 

2. 3. 5. 3 Blank  Lines.  A line  is  considered  blank,  if  it  contains 
nothing  but  spaces  from  the  left  boundary  of  Margin  *C'  (char- 
acter position  7)  through  the  right  boundary  of  Margin  'R'  (char- 
acter position  72).  A blank  line  can  appear  anywhere  within  a 
source  program,  except  immediately  preceding  a continuation  line. 

2. 3. 5. 6 Comment  Lines  (IBM  Extension).  An  asterisk  (*) , placed 
in  the  indicator  column  (character  position  7)  of  any  line,  is 
used  to  specify  that  that  line  is  a comment.  Any  combination  of 
characters  may  be  used  on  a comment  line.  The  asterisk  and  those 
characters  will  be  printed  on  a source  listing,  but  the  comment 
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2. 3.5.6  Comment  Lines  (IBM  Extension) . (Cont.) 

line  will  not  be  used  for  any  other  purpose.  Column  7 la  also 
used  as  an  indicator  position  in  accordance  with  the  multi-line 
coding  concept.  (Example:  A**OS,  B"*DOS,  etc.)  See  SINGLE 
SOURCE  LIBRARY  SYSTEM,  paragraph  2.8. 

2.3.6  CSC's  STANDARD  CODING  CONVENTIONS.  USACSC  COBOL  Coding 
Form  26  will  be  used  when  coding  COBOL  programs. 

2.3.6. 1 Coding.  CSC  has  developed  several  coding  conventions 
which  will  be  used  to  better  enhance  the  COBOL  language  in  the 
areas  of  readability.  The  following  rules  have  been  applied: 

2.3.6. 1.1  Symbols /Words.  The  symbols  >f  < and  - must  not  be 
used  as  relational  operators.  The  words  GREATER  THAN,  LESS 
THAN,  and  EQUAL,  respectively,  should  instead  be  coded. 

2. 3.6. 1.2  Verbs.  Only  one  verb  will  be  coded  on  each  line. 

2.3.6. 1.3  Working  Storage  Section.  In  organizing  the  WORKING- 
STORAGE  area,  the  0 level  items  should  be  placed  in  descending 
order  according  to  frequency  of  use  (i.e. , the  item  with  the 
highest  frequency  of  use  will  be  placed  first,  the  item  with  the 
next  highest  frequency  of  use  be  placed  second,  etc.). 

2.3.6. 1.4  Paragraph/Section  Names.  All  paragraph  or  section 
names  will  be  on  a separate  line. 

2.3.6. 1.5  Coding  Paragraph/Section  Names.  Paragraph  and  section 
names  must  be  alphanumeric  starting  with  four  numeric  characters 
followed  by  a hyphen,  and  they  should  also  be  descriptive  of  the 
statements  contained  under  them. 

2. 3.6. 1.6  Coding  Data  Description  Entries.  In  the  data 
description  entries,  when  the  following  clauses  are  being  used, 
they  should  be  coded  in  this  specific  order  as  shown  in 
FIGURE  2-3. 
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FIGURE  2-3 
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2. 3. 6. 1.7  Clause.  Each  clause  that  follows  an  FD  must  begin  in 
character  position  12  of  the  next  line.  Each  successive  clause 
will  begin  on  a new  line. 


2.3.6. 1.8  Readability.  In  order  to  enhance  readability,  numeric 
literals  should  not  be  split.  If  the  literal  is  too  large,  the 
whole  VALUE  clause  should  be  placed  on  the  next  line.  A special 
effort  should  be  made  to  place  a literal  entirely  on  one  line. 


2.3.6. 1.6  Coding  Data  Description  Entries.  (Cont.) 


data-name 

level  number  FILLER 

REDEFINES  clause 
OCCURS  clause 
PICTURE  clause 
USAGE  clause 
VALUE  clause 
JUSTIFIED  clause 
SYNCHRONIZED  clause 
BLANK  WHEN  ZERO  clause 
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2 . 4  CSC  COBOL  SPECIFICATIONS 


2.4.1  FORMAT  RULES  AND  NOTES.  The  CSC  COBOL  specifications 
will  be  presented  in  the  following  format: 


2. 4. 1.1  Language  Element.  Identifies  by  name  the  particular 
COBOL  language  element  specifications  being  dealt  with.  If  not 
ANS,  it  will  be  so  noted. 


2.4. 1.2  Function.  This  is  a brief,  general  narrative  descrip 
tion  of  the  language  element  and  its  use. 


2.4. 1.3  Format.  A General  Format  defines  the  specific  arrange- 
ment of  the  elements  of  a clause  or  statement.  Formats  are 
shown  adjacent  to  information  defining  the  clause  or  statement. 
When  more  than  one  specific  arrangement  is  permitted,  the 
General  Format  is  separated  into  numbered  formats.  Clauses  must 
be  written  in  the  sequence  given  in  the  General  Formats.  The 
format  is  graphically  represented. 


2. 4. 1.4  Syntax  Rules.  Syntax  rules  are  those  rules  that  define 
or  clarify  the  order  in  which  words  or  elements  are  arranged  to 
form  larger  elements  such  as  phrases,  clauses  or  statements. 
Syntax  rules  also  impose  restrictions  on  individual  words  or  ele 
ments.  These  rules  are  used  to  define  or  clarify  how  the  state- 
ment must  be  written  (i.e.,  the  order  of  the  elements  of  the 
statement  and  restrictions  on  what  each  element  may  represent). 


2. 4. 1.5  General  Rules.  A general  rule  is  a rule  that  defines 
or  clarifies  the  meaning  or  relationship  of  meanings  of  an  ele- 
ment or  set  of  elements.  It  is  used  to  define  or  clarify  the 
semantics  of  the  statement  and  the  effect  on  either  execution  or 
compilation. 


2.4. 1.6  Vendors'  Guidelines.  Vendors'  guidelines  are  comments 
that  modify  a General  Format,  a Syntax  Rule  or  a General  Rule. 
The  consents  indicate  specific  extensions,  omissions  or  devia- 
tions from  the  ANS  COBOL.  Differences  in  OS  and  DOS  will  be 
noted  here.  Other  vendors'  guidelines  can  be  added  as  required 


2.4. 1.7  CSC  Guidelines.  This  will  contain  any  additional 
guidance  on  usage  by  CSC. 
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2.4.2  FORMAT  PUNCTUATION. 

2.4.2. 1 General  Description.  Punctuation  characters,  comma  and 
semicolon,  are  shown  In  some  formats.  A semicolon,  however,  must 
not  appear  Immediately  preceding  the  first  clause  of  an  entry  or 
paragraph.  The  use  of  these  punctuation  characters  for  each  of 
the  four  division  are  noted  as  follows. 

2.4.2. 1.1  Identification  Division.  The  comma  and  semicolon  may 
be  used  within  the  comment-entries.  The  paragraph  itself,  how- 
ever, must  terminate  with  a period  followed  by  a space. 

2.4.2. 1.2  Environment  Division.  Where  either  a comma  or  semi- 
colon is  shown  in  the  formats,  it  is  optional  and  may  be  included 
or  omitted  by  the  user.  The  entry  itself  must  terminate  with  a 
period  followed  by  a space. 

2. 4. 2. 1.3  Data  Division.  Where  either  a comma  or  semicolon  is 
shown  in  the  formats,  it  is  optional  and  may  be  included  or  omit- 
ted by  the  user.  The  entry  itself  must  terminate  with  a period 
followed  by  a space. 

2. 4. 2. 1.4  Procedure  Division.  When  a comma  or  semicolon  is 
shown  in  the  formats,  it  is  optional  and  may  be  included  or 
omitted  by  the  user.  If  desired,  a semicolon  may  be  used 
between  statements  within  a paragraph  or  section. 

I 

2. 4. 2. 2 Elements.  Elements  which  make  up  clauses  or  statements 
consist  of  upper  case  words,  lower  case  words,  level  numbers, 
brackets,  braces,  connectives  and  special  characters. 

2.4.3  SYMBOLS  AND  NOTATIONS  USED  IN  THIS  MANUAL. 

2.4. 3.1  General.  The  various  language  elements  that  comprise  a 
COBOL  program  must  be  written  in  formats  that  adhere  to  fixed 
and  precise  rules  of  presentation.  It  is  necessary  to  under- 
stand the  various  symbols,  rules  and  notations  in  describing  the 
individual  formats.  Each  format  statement  will  indicate  the 
following  information: 

The  order  of  presentation. 

I 

Those  words  that  are  required  for  the  proper  function- 
ing of  the  statement. 
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2.4.3. 1 General.  (Cont.) 

Those  words  Chat  are  optional  and  Included  at  the 
user's  discretion. 

That  information  that  must  be  supplied  by  the  user. 

Those  elements  in  the  statement  that  involve  a choice 
by  the  user. 

Those  functions  of  a particular  statement  that  are 

optional. 


2 . 4 . 3 . 2 Format  Presentation. 

2. 4. 3. 2.1  Words.  All  words  inherent  or  built  into  COBOL  are 
specified  as  upper  case. 

2. 4. 3. 2. 2 Upper  Case  Words  (Underlined).  All  upper  case  words 
which  are  underlined  are  required  as  key  words.  Those  upper 
case  words  not  underlined  are  optional  and  may  be  used  at  the 
user's  discretion. 

2. 4. 3. 2. 3 Upper  Case  Words  (Underlined/Not  Underlined).  All 
upper  case  words,  whether  underlined  or  not,  are  part  of  the 
COBOL  language,  and  must  be  spelled  exactly  as  indicated. 

2. 4. 3. 2. 4 Lower  Case  Words.  All  lower  case  words  are  generic 
terms  and  must  be  supplied  by  the  user. 

2. 4. 3. 2. 5 Element  Braces.  Elements  of  a statement  involving  a 
required  choice  are  surrounded  by  braces. 

Example:  { } 

2. 4. 3. 2. 6 Function  Brackets.  Optional  functions  which  may  be 
included  or  omitted  at  the  user's  discretion  are  surrounded  by 
brackets. 


Example:  [ ] 


i 


t 


i 
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2. 4. 3. 2. 6 Function  Brackets.  (Cont.) 


BY  data-name-2  [ ROUNDED  ] 


MULTIPLY 


ON  SIZE  ERROR  imperative  statement  ] 


RECORDS 


BLOCK  CONTAINS 


CHARACTERS 


The  programer  must  choose  either  RECORDS  or  CHARACTERS. 
If  RECORDS  is  chosen,  the  word  RECORDS  must  be  written  because 
it  is  a key  word  (underlined).  However,  if  CHARACTERS  is  the 
choice,  CHARACTERS  is  not  a key  word  and  the  programer  need  not 
write  it.  If  the  word  CHARACTER  is  omitted,  the  COBOL  compiler 
assumes  that  the  word  CHARACTER  was  chosen  and  generates  machine 
code  based  on  this  assumption. 
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2. 4. 3. 4 Ell  Ipsls.  In  some  statements,  certain  portions  may  he 
used  as  many  times  as  needed  by  the  programer.  This  repetition 
is  indicated  by  the  ellipsis  (...).  Brackets  or  braces  are  used 
as  delimiters  to  indicate  the  portion  of  the  statement  which  is 
repeatable. 

2. 4. 3. 4.1  Rules.  The  following  rule  applies  to  ellipsis: 

Given  an  ellipsis  (...)  in  a statement  scan  the 
statement  from  right  to  left  beginning  at  the 
bracket  or  brace  immediately  to  the  left  of  the 
. . . until  the  logically  matching  bracket  or  brace 
is  found.  The  ...  applies  to  the  words  within  the 
logically  matched  brackets  or  braces. 

2. 4. 3. 4. 2 Example  1: 


ADD  < 


identifier-1 


literal  -1 


[ identifier-n 


identifier-2 

literal-2 


TO  identifier-m 


[ ROUNDED  ] 


[ ROUNDED  ] ]... 


Scanning  from  right  to  left,  starting  at  the  bracket 
immediately  to  the  left  of  the  last  ellipsis,  it  can  be  seen  that 
the  logically  matching  bracket  is  the  one  preceding  identifier-n. 
Thus  the  entire  second  line  of  the  statement  can  be  written  as 
many  times  as  the  programer  chooses.  Those  brackets  surrounding 
ROUNDED  in  both  lines  of  the  statement  perform  their  normal 
function,  i.e.,  they  indicate  which  portion  of  the  statement  is 
optional . 
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2. 4. 3. 4. 3  Example  2: 


Starting  at  the  brace  immediately  to  the  left  of  the 
ellipsis,  the  logically  matching  brace  is  the  brace  Immediately 
preceding  identlf ier-1 . The  programer  may  write  as  many  differ- 
ent identifiers  following  the  word  TO  as  he  chooses.  The  first 
set  of  braces  in  the  statement  perform  their  normal  function;  the 
programer  must  choose  either  ldentifier-1  or  literal. 

2. A. 3. 4. 4 Usage.  The  preceding  examples  illustrate  the  usage  of 
various  elements  of  a COBOL  statement.  Certain  language  elements 
used  in  the  examples  (data-name,  literal,  identifier,  imperative 
statement)  are  discussed  in  later  sections. 

2.4.4  COBOL  PROGRAM  STRUCTURE. 

2.4.4. 1  Divisions.  Every  COBOL  source  program  is  divided  into 
four  divisions.  Each  division  must  be  placed  in  its  proper  se- 
quence, and  each  must  begin  with  a division  header. 

The  four  divisions,  listed  in  sequence,  and  their  func- 
tions are: 


2. 4. 4. 1.1  IDENTIFICATION  DIVISION,  which  names  the  program. 

2.4.4. 1.2  ENVIRONMENT  DIVISION,  which  indicates  the  machine 
equipment  and  equipment  features  to  be  used  in  the  program. 

2. 4. 4. 1.3  DATA  DIVISION,  which  defines  the  nature  and  char- 
actersltics  of  data  to  be  processed. 

2.4.4. 1.4  PROCEDURE  DIVISION,  which  consists  of  statements 
directing  the  processing  of  data  in  a specified  manner  at 
execution  time. 


2-26 


o 

o 


1 FEB  79 


CSCM  18-1-1 


2.4.4. 2 For mala.  In  all  formats  within  this  publication,  the 
required  clauses  and  optional  clauses  (when  written)  must  appear 
In  the  sequence  given  In  the  format,  unless  the  associated  rules 
explicitly  state  otherwise. 

2. 4. 4. 3 Structure  of  the  COBOL  Program.  Refer  to  FIGURE  2-4. 


IDENTIFICATION  DIVISION. 


PROGRAM- ID.  program  name. 

AUTHOR,  comment-entry 
INSTALLATION,  comment-entry  . . . 
DATE-WRITTEN . comment-entry 
DATE-COMPILED . comment-entry 
SECURITY . comment-entry 


(Reference:  para.  2.4.5) 


REMARKS,  comment -entry 


ENVIRONMENT  DIVISION 


(Reference:  para.  2.4.6) 


CONFIGURATION  SECTION. 


SOURCE-COMPUTER,  entry 
OBJECT-COMPUTER,  entry 
SPECIAL-NAMES . entry 


INPUT-OUTPUT  SECTION. 


FILE-CONTROL,  entry  . . . 


I-O-CONTROL . entrv 


FIGURE  2-4 
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2.4.5  IDENTIFICATION  DIVISION 


2.4.5. 1 ELEMENTS 


FUNCTION.  The  IDENTIFICATION  DIVISION  identifies  the  source 
program  and  the  resultant  output  listing.  In  addition,  other 
documentation  information  may  be  supplied  by  the  user  in  the 
pertinent  paragraphs  of  this  division. 


FORMAT 


IDENTIFICATION  DIVISION 


[program-name.]  ] 
[comment-entry.]  ] 

[comment-entry.]  ] 
[comment-entry.]  ] 
DATE-COMPILED,  [comment-entry.]  ] 
SECURITY.  [comment-entry.]  ] 
[comment-entry.]  ] 


PROGRAM- ID 


AUTHOR 


INSTALLATION 


DATE-WRITTEN 


REMARKS 


SYNTAX  RULES 


• This  division  is  always  required 
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2.4.5. 1 ELEMENTS . (Cont.) 

• This  division  must  start  in  the  leftmost  portion  of  the 
A-margin  with  the  reserved  words  IDENTIFICATION  DIVISION  followed 
by  a period  and  a space. 

• All  paragraph  names  are  on  a separate  line  and  begin  in 
the  leftmost  portion  of  the  A-margin. 

• The  comment-entry  may  be  any  combination  of  characters 
from  the  computer's  character  set.  The  continuation  of  the 
comment-entry  by  the  use  of  the  hyphen  in  the  indicator  column  is 
not  permitted;  however,  the  comment-entry  may  be  contained  on  one 
or  more  lines. 

GENERAL  RULES.  None. 

VENDORS ' GU IDEL INES . IBM  allows  ID  abbreviation. 

CSC  GUIDELINES.  None. 
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2. 4. 5. 2 PROGRAM- ID  PARAGRAPH 


FUNCTION . The  PROGRAM- ID  paragraph  gives  the  name  by  which 
a program  is  identified. 


FORMAT 


PROGRAM- ID . program-name 


SYNTAX  RULES.  None 


GENERAL  RULES . The  PROGRAM- ID  paragraph  must  contain  the 
name  of  the  program  and  must  be  present  in  every  program. 


VENDORS'  GUIDELINES.  The  program-name  must  conform  to  the 
rules  for  formation  of  a system-name. 


WH'W  r 
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2. 4. 5. 3 AUTHOR  PARAGRAPH. 

FUNCTION . The  AUTHOR  paragraph  identifies  the  author  or 
responsible  programer. 

FORMAT . 
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2. 4. 5. A INSTALLATION  PARAGRAPH. 

FUNCTION . The  INSTALLATION  paragraph  identifies  the 
responsible  organization. 

FORMAT. 


INSTALLATION,  comment-entry. 


SYNTAX  RULES. 

• Begin  in  section  A and  end  with  period. 

• The  comment-entry  may  be  any  combination  of  characters 
from  the  computer's  character  set.  The  continuation  of  the 
comment-entry  by  the  use  of  the  hyphen  in  the  indicator  column 
is  not  permitted;  however,  the  comment-entry  may  be  contained 
on  one  or  more  lines. 

GENERAL  RULES.  None. 

VENDORS'  GUIDELINES.  None. 

CSC  GUIDELINES.  Code  the  organization  symbol  of  the  organi- 
zation responsible  for  the  maintenance  of  the  program,  i.e. 
CSCS-SGP . 


gfc"  - • 

v 

+W  *.  «v 

jT?  * .•  f : . '* 
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2. 4.5.5  DATE-WRITTEN  PARAGRAPH. 

FUNCTION.  The  DATE-WRITTEN  paragraph  identifies  when  the 
program  was  written. 

FORMAT. 


DATE-WRITTEN,  comment-entry. 


SYNTAX  RULES. 

• Begin  in  margin  A,  end  with  period. 

• The  comment-entry  may  be  any  combination  of  characters 
from  the  computer's  character  set.  The  continuation  of  the 
comment-entry  by  the  use  of  the  hyphen  in  the  indicator  column 
is  not  permitted;  however,  the  comment-entry  may  be  contained 
on  one  or  more  lines. 

GENERAL  RULES.  None. 

VENDORS'  GUIDELINES.  None. 

CSC  GUIDELINES.  Code  the  date  on  which  the  IDENTIFICATION 
DIVISION  of  the  first  version  of  the  program  is  written. 

• Enter  date  format  XX  YYYYYYYYY  ZZ 

XX  **  two  numeric  characters,  current  day. 

YYYYYYYYY  » three  to  nine  alpha  characters  for  month. 

ZZ  = two  numeric  characters,  current  year. 
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2. 4. 5. 6 DATE-COMPILED  PARAGRAPH. 

FUNCTION.  This  paragraph  documents  the  date  of  compilation 
for  this  source  listing. 

FORMAT. 


DATE-COMPILED.  comment  entry. 


SYNTAX  RULES . The  comment-entry  may  be  any  combination  of 
characters  from  the  computer's  character  set.  The  continuation 
of  the  comment-entry  by  the  use  of  the  hyphen  in  the  indicator 
column  is  not  permitted;  however,  the  comment-entry  may  be 
contained  on  one  or  more  lines. 

GENERAL  RULES.  The  DATE-COMPILED  paragraph  causes  the 
compiler  to  place  the  compilation  date  to  the  right  of  the  para- 
graph header. 

VENDORS'  GUIDELINES.  At  least  one  of  the  IBM  compilers  will 
not  properly  place  the  compilation  date  in  the  comment-entry 
area  unless  the  user  has  entered  a comment-entry. 

CSC  GUIDELINES.  Insert  the  comment-entry  "TODAY"  to  ensure 
proper  operation  of  this  paragraph. 
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2. 4. 5. 7 REMARKS  PARAGRAPH. 

FUNCTION.  This  paragraph  serves  a documentation  purpose 
for  the  user. 

FORMAT. 


SYNTAX  RULES.  Comment  statements  are  coded  with  an  asterisk 
(*)  in  the  indicator  column  (column  7). 

GENERAL  RULES.  All  entries  in  this  paragraph  with  exception 
of  REMARKS  will  be  restricted  to  Area  B. 

VENDORS'  GUIDELINES.  None. 

CSC  GUIDELINES.  A chronological  history  of  program  revi- 
sions will  be  documented  in  the  REMARKS  section.  Each  entry 
will  Include  the  revision  number,  revision  date,  and  a brief 
narrative,  in  functional  terms,  of  the  program  changes.  Other 
remarks  section  entries  are  optional  and  may  include  program 
specifications,  input  specifications,  and  output  specifications, 
name  of  the  revisor  and  organization  if  different  thon  the 
entries  in  AUTHOR  and  INSTALLATION. 


! 
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2. 4. 5. 8 IDENTIFICATION  DIVISION  SAMPLE.  Refer  to  FIGURE  2-5. 


O 

c 


IDENTIFICATION  DIVISION. 

PROGRAM- ID.  P74ABA. 

AUTHOR.  CSCS-MSF-S , H L BROWN. 

INSTALLATION.  HQ  USACSC-QAD. 

DATE-WRITTEN.  15  JAN  76. 

DATE-COMPILED . TODAY . 

* REMARKS . 

* PROGRAM-TITLE:  DATA  ELEMENT  UPDATE. 

* 

* ALTERNATE-PROGRAMMER:  JOHN  SMITH. 

•k 

* ORIGINATOR:  JOHN  DOE. 

* 

* MESSAGES:  01  - INVALID  ACTION  CODE 

* PARA  = ACTION-CODE-CHECK. 

* 

* USER-DUMP-CODES : None 

* 

* PROGRAM-DESCRIPTION:  VALIDATES  INPUT  TRANSACTIONS  AGAINST 

* THE  DATA  ELEMENT  MASTER.  REJECTS  INVALID  INPUT 

* AND  UPDATES  THE  MASTER  FILE  WITH  THE  VALID 

* INPUT. 

* 

* MODIFICATIONS:  MOD-001  EFF-DT  JAN  15,  1974. 

* CHANGE  TO  INCLUDE  VALIDATION  OF  ACTION  CODE. 

* CHANGE-REQ-CTLNR : SYSTEM  CHANGE  REQUEST  XNN- 

* XNNN-NNN.  MOD-002  EFF-DT  JAN  20,  1974. 

* CHANGE  TO  TEST  FOR  BLANKS  IN  DATA  ELEMENT  NAME. 

* CHANGE-REQ-CTLNR:  SYSTEM  CHANGE  REQUEST  XNN- 

* XNNN-NNN . 


FIGURE  2-5 
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2.4.6  ENVIRONMENT  DIVISION. 

2.4.6. 1 ELEMENTS. 

FUNCTION.  Provides  a standard  way  of  expressing  the 
computer  dependent  information  needed  to  process  a COBOL  program. 

FORMAT. 


SYNTAX  RULES.  The  Environment  Division  must  begin  in  Area  A 
with  the  heading  ENVIRONMENT  DIVISION  followed  by  a period. 
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2.4.6. 1 ELEMENTS.  (Cont.) 

GENERAL  RULES.  The  Environment  Division  is  divided  into  two 
sections:  the  Configuration  Section  and  the  Input-Output 
Section.  The  sections  and  paragraphs,  when  written,  must  appear 
in  the  sequence  shown  in  the  above  format. 

VENDORS'  GUIDELINES.  None. 

CSC  GUIDELINES.  Required  within  CSC. 
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2. 4. 6. 2 CONFIGURATION  SECTION. 

a.  FUNCTION.  This  section  deals  with  the  overall  specifications 
of  the  computer. 

b.  FORMAT  1. 


CONFIGURATION  SECTION. 

SOURCE-COMPUTER . source-computer-entry 
OBJECT-COMPUTER . object-computer-entry 


FORMAT  2. 


CONFIGURATION  SECTION. 

SOURCE-COMPUTER. 

IBM-360-G40. 

OBJECT-COMPUTER. 

IBM-360-G40. 

SOURCE-COMPUTER. 

CDC-6600. 

OBJECT-COMPUTER. 

CDC-6600. 

SOURCE-COMPUTER. 

UNIVAC-1108. 

OBJECT-COMPUTER. 

UNI VAC- 110 8. 

c.  SYNTAX  RULES.  Section-names  must  begin  in  Area  A.  Col  7 
must  contain  vendor  code. 

d . GENERAL  RULES • None • 

e»  VENDORS  * GUIDELINES . This  section  is  optional  with  IBM  COBOL, 
f.  CSC  GUIDELINES. 

(1)  The  CONFIGURATION  SECTION  entry  Is  required  within  CSC. 

(2)  Format  2 is  an  example  of  a multi-vendor  CONFIGURATION 
SECTION  environment. 
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2. 4. 6. 3 SOURCE-COMPUTER  PARAGRAPH. 

FUNCTION.  The  SOURCE-COMPUTER  paragraph  serves  as  documen- 
tation and  describes  the  computer  upon  which  the  source  program 
is  compiled. 

FORMAT. 


SYNTAX  RULES.  This  paragraph  begins  in  the  A-margin. 

GENERAL  RULES.  Computer-names  are  assigned  by  individual 
vendors . 

VENDORS*  GUIDELINES.  IBM  requires  the  computer-name  to  be 
specified  as  either  IBM-370-(model  number)  or  IBM- 360- (model 
number).  For  the  370,  the  model  number  is  the  form  NNN,  as  145, 
155,  etc.  - example,  IBM-370-155.  For  the  360,  the  model  number 
is  in  the  form  NN  or  ANN,  where  the  NN  is  the  numeric  model  des- 
ignation, as  30,  40  etc.,  and  the  A is  the  memory-size  desig- 
nator, as  G,  H,  I,  etc.  - examples,  IBM-360-G40  or  IBM-360-40. 

As  shown,  if  the  memory-size  is  not  known,  it  need  not  be 
Included  in  the  model  number. 

CSC  GUIDELINES.  This  paragraph  is  required  in  a COBOL 
source  program. 


o 

o 


2-41 


CSCM  18-1-1 


1 FEB  79 


2. 4. 6. 4 OBJECT-COMPUTER  PARAGRAPH. 

FUNCTION . The  OBJECT-COMPUTER  paragraph  describes  the 
computer  on  which  the  program  is  to  be  executed. 

FORMAT. 


I OBJECT-COMPUTER . computer-name 

I [SEGMENT-LIMIT  is  priority-number]. 


SYNTAX  RULES . This  paragraph  begins  in  the  A-margin. 

GENERAL  RULES. 

• Computer -names  are  assigned  by  individual  vendors. 

• SEGMENT-LIMIT  is  used  with  the  Segmentation  facility. 

This  option  designates  the  highest  priority  number  for  fixed 
permanent  segments. 

VENDORS'  GUIDELINES. 

• The  computer-name  is  constructed  in  the  same  fashion  as 
in  the  SOURCE-COMPUTER  paragraph. 

• The  entire  CONFIGURATION  SECTION  and  its  associated 
paragraphs  are  optional  with  IBM  ANSI  COBOL  compilers.  However, 
if  the  Source  Computer  is  a 370  and  the  Object  Computer  is  a 360, 
the  OBJECT-COMPUTER  paragraph  must  be  stated,  giving  the  lowest 
model  number  360  on  which  the  program  may  be  run,  as  370  machine 
code  may  be  generated  if  this  is  not  done,  causing  an  abnormal 
termination  of  the  program  when  run  on  a 360. 
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2. 4. 6. 4 OBJECT-COMPUTER  PARAGRAPH.  (Cont.) 


CSC  GUIDELINES 


• The  object  computer  paragraph  is  required  with  a COBOL 
source  program. 


•,  Specify  the  lowest  model  machine  on  which  program  will 


2. 4. 6. 5 SPECIAL-NAMES  PARAGRAPH. 


FUNCTION.  The  SPECIAL-NAMES  paragraph  provides  a means  of 
relating  user-specified  mnemonic -names  to  specific  hardware 
devices  or  functions  defined  by  each  vendor. 

FORMAT. 


SPECIAL-NAMES . 

implementor-name  IE  mnemonic-name 


SYNTAX  RULES.  A period  must  appear  after  the  SPECIAL-NAMES 
paragraph  title  and  after  the  last  entry  in  the  paragraph. 
Entries  may  be  separated  by  spaces,  commas,  semicolons,  but 
not  periods. 

GENERAL  RULES.  Implementor-name  refers  to  specific  features 
or  devices  defined  by  each  vendor.  (See  VENDORS'  GUIDELINES.) 

VENDORS'  GUIDELINES. 

• IBM.  IBM  assigns  the  following  implementor-names  which 
may  be  used  in  the  SPECIAL-NAMES  paragraph. 

Hardware  devices  which  may  be  referred  to  by  a 
mnemonic-name  in  the  ACCEPT  and  DISPLAY  statements  are:  SYSOUT, 
SYSIN,  SYSPUNCH,  and  CONSOLE. 

Carriage  control  characters  which  may  be  referred  to 
by  a mnemonic-name  in  the  WRITE  BEFORE/ AFTER  ADVANCING  state- 
ment are:  C01  through  Cl 2 (skip  to  channel  1 through  12 
respectively)  or  CSP  (suppress  spacing). 

CSC  GUIDELINES. 

e Only  the  following  entries  may  be  used  in  the  SPECIAL 
NAMES  paragraph. 
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2. 4. 6. 5 SPECIAL-NAMES  PARAGRAPH.  (Cont.) 


C01  is  CHAN1 


C09  is  CHAN9 


C12  Is  CHAN12 


• Channel  12  Is  restricted  for  use  with  the  only  exception 
being  for  Renote  Job  Entry  (RJE)  terminal  use. 
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2. 4. 6. 6 INPUT-OUTPUT  SECTION. 

FUNCTION . Identifies  each  file  and  its  external  storage 
media,  assigns  input/output  devices  and  supplies  information 
needed  for  transmitting  between  external  media  and  the  object 
program. 

FORMAT. 


INPUT-OUTPUT  . -CTION . 


.FILE-CONTROL,  ^f  ile-control-entry^  ...] 

L I-O-CONTROL . [input-output  control  entry]  ] 


SYNTAX  RULES.  Begin  in  A- area. 

GENERAL  RULES.  Input-Output  section  required  if  files  are 
used,  otherwise  optional. 

VENDORS'  GUIDELINES.  None. 

CSC  GUIDELINES.  None. 
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2.4.6. 7 FILE-CONTROL  PARAGRAPH.  (Cont.) 

SYNTAX  RULES. 

• The  FILE-CONTROL  paragraph  is  required  when  the  INPUT- 
OUTPUT  SECTION  header  is  specified. 

• The  FILE-CONTROL  paragraph  header  begins  in  the  A-margln, 
the  clauses  in  the  B-margin. 

GENERAL  RULES.  None. 

VENDORS*  GUIDELINES.  None. 

CSC  GUIDELINES.  None. 
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2.4.6. 8 SELECT  CLAUSE. 
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FUNCTION.  The  SELECT  clause  Is  used  to  name  each  file  In  a 
program. 

FORMAT. 


SELECT  [OPTIONAL]  file  -name 


SYNTAX  RULES. 

• Each  file  named  In  the  SELECT  clause  must  have  a file 
description  entry  (FD)  or  a sort  description  entry  (SD)  in  the 
Data  Division. 

• Each  file  described  in  the  Data  Division  must  be  named 
once  and  only  once  as  a file  name  following  the  key  word  SELECT. 

GENERAL  RULES.  None. 

VENDORS*  GUIDELINES. 

• IBM  OS. 

The  file-name  specified  in  the  SELECT  clause  relates 
to  the  DD-name  in  the  JCL  entry  for  that  file  under  OS. 

Example:  //ddname  DD  DSN-data  set... 

OPTIONAL  entry  is  taken  as  comments  since  this  is  a 
JCL  function  in  OS. 

• IBM  DOS.  The  file-name  specified  in  the  SELECT  state- 
ment relates  to  the  file-name  in  TLBL  or  DLBL  card  of  the  DOS 
Job  Control  Language. 
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Example 


CSC  GUIDELINES.  None 
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FUNCTION.  Used  to  assign  a file  to  an  external  medium 


FORMAT 


ASSIGN  TO  implementor-name-1  [implementor-name 


SYNTAX  RULES . The  structure  of  the  ASSIGN  clause  is  depen^ 
dent  on  each  vendors'  specifications.  See  VENDORS'  GUIDELINES 
below  for  SYNTAX  format. 


GENERAL  RULES . The  ASSIGN  clause  is  used  to  assign  a file 
to  an  external  medium.  Each  file  used  in  the  program  must  be 
referenced  immediately  after  the  Select  statement  and  further 
referenced  as  a FD  or  SD  entry  in  the  DATA  DIVISION. 


VFNOORS ' GUIDELINES 


• IBM-OS.  The  ASSIGN  clause  is  used  to  assign  a file  to 
an  external  medium. 


FORMAT 


ASSIGN  TO  [integer-l]  system-name-1 


name 


REEL 


[FOR  MULTIPLE 


UNIT 
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Integer-1  indicates  the  number  of  input/output  units  of 
a given  medium  assigned  to  file-name.  However,  since  the  number 
of  units  is  automatically  determined  by  the  operating  system, 
the  integer-1  option  need  not  be  specified.  When  specified,  it 
is  treated  as  comments  (see  IBM  System/ 360  Operation  System;  Job 
Control  Language,  Form  GC28-6539) . 

System-name  specifies  a device  class,  a particular  input/ 
output  device,  the  organization  of  data  upon  this  device,  and 
the  external-name  of  the  file.  All  files  used  in  a program  must 
be  assigned  to  an  input /output  medium.  Any  system-name  beyond 
the  first  for  a file  will  be  treated  as  comments. 

FOR  MULTIPLE  REEL/UNIT  is  applicable  whenever  the 
number  of  tape  units  or  mass  storage  devices  assigned  might  be 
less  than  the  number  of  reels  or  units  in  the  file.  The  oper- 
ating system  will  automatically  handle  volumes  switching  for 
sequentially  processed  files.  All  volumes  must  be  mounted  for 
randomly  accessed  files.  Therefore,  when  this  clause  is  speci- 
fied, it  is  treated  as  comments. 

System-name  has  the  following  structure: 
class  -device  -organization-name 

Class  is  a 2-character  field  that  specifies  the  device 

class: 

DA  (mass  storage) 

UT  (utility) 

UR  (Unit-record) 

Files  assigned  to  UT  or  UR  must  have  standard  sequential 
organization  and  can  be  accessed  only  sequentially.  Files 
assigned  to  DA  may  have  standard  sequential  or  direct  organiza- 
tion. When  organization  is  direct,  access  may  be  either 
sequential  or  random. 

Device  is  used  to  specify  a particular  device  within  a 
device  class.  It  can  be  a 4 to  6 character  field.  If  device 
Independence  for  a file  is  desired,  the  device  class  must  be  UT; 
no  device  number  may  be  specified.  At  execution  time,  such  a 
file  may  be  assigned  to  any  device  class  (including  unit-record). 
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The  allowable  system  devices  for  any  given  class  are  as 


follows: 


Mass  storage  (DA)  2301,  2302,  2303,  2311,  2314,  2321. 
Utility  (UT)  2301,  2302,  2311,  2314,  2321,  2400. 
Unit-record  (UR)  1403,  1404  (for  continuous  forms  only), 
1442R,  1442P,  1443,  1445,  2501,  2520R,  2520P,  2540R, 
2540P. 

(R  indicates  reader;  I*  indicates  punch.) 

Note:  Sort  input,  output,  or  work  files  may  be  assigned  to 
any  utility  device  except  a 2321  (see  "Sort"). 

Program  Product  Information  Version  3-OS. 

For  Version  3 only,  the  following  additional  system  devices 
are  allowable: 

Mass  Storage  (DA)  2305-1,  2305-2,  2319,  3330. 

Utility  (UT)  2305-1,  2305-2,  2319,  3330. 

Unit  Record  (UR)  3211. 


Note:  For  the  Version  1 and  Version  2 Compilers,  these 

devices  (2305-1,  2305-2,  2319,  3330,  or  3211)  can  be 
used,  if  the  device  field  in  system-name  is  omitted. 
At  execution  time,  any  of  these  devices  can  be  speci- 
fied through  the  UNIT  subparameter  of  the  file's  DD 
statement.  Note,  however,  that  except  for  files 
containing  spanned  records  the  device  field  is 
treated  as  comments.  For  files  containing  spanned 
records,  the  block  length  for  the  file  is  checked 
against  the  maximum  block  length  allowed  for  the 
device  specified,  and  the  smaller  of  the  two  becomes 
the  block  size  that  is  used. 


Program  Product  Information  Verion  4-OS. 

The  device  field  in  system-name  is  treated  as  comments  by 
the  Version  4 Compiler.  At  execution  time,  any  valid  device  can 
be  specified  through  the  UNIT  subparameter  of  the  file's  DD 
statement.  The  following  considerations  apply: 


1 


Mi 
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If  an  invalid  device  number  is  specified,  no  error 
diagnostic  is  produced. 

For  an  ASCII  file,  if  2400  (or  other  compatible  tape 
device)  is  not  specified  in  the  device  field,  no  error  diagnos- 
tic is  produced. 

For  a direct  file  with  spanned  records,  the  Version  4 
Compiler  always  calculates  buffer  size  from  the  COBOL  record 
description. 

Organization  is  a 1-character  field  that  Indicates  the 
file  organization.  The  following  characters  must  be 
used: 

S for  files  with  standard  sequential  organization. 

D for  files  with  direct  organization. 

TABLE  1 (page  2-62)  can  be  used  to  determine  the  correct 
choice  for  the  organization  field  in  system-name. 

Name  is  a 1-  to  8-character  field  specifying  the 
external-name  by  which  the  file  is  known  to  the  system. 
It  is  the  name  that  appears  in  the  name  field  of  the  DD 
card  for  the  file. 

• IBM- DOS.  The  ASSIGN  clause  is  used  to  assign  a file  to 
an  external  medium. 


FORMAT. 


ASSIGN  TO  [integer]  system- 

-name-1  [system-name-2]  ... 

f REEL*] 

| 

[for  multiple  J 

] 

J^UNIT 
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Integer  indicates  the  number  of  input/output  units  for 
a given  medium  assigned  to  file-name.  Since  the  number  of  units 
is  determined  at  program  execution  time  (see  IBM  System/ 360  Disk 
Operating  System;  System  Control  and  System  Service  Programs, 
Form  C24-5036) , the  standard  definition  given  above  is  not  the 
action  taken  by  this  compiler.  The  above  does  not  apply  to  sort 
work  files  which  must  be  specified. 

When  specified  for  files  with  standard  labels  or  for 
unlabeled  output  tape  files,  the  integer  option  is  treated  as 
comments.  When  integer  is  specified  as  greater  than  one  for 
unlabeled  input  tape  files,  then  at  the  end  of  every  reel  a mes- 
sage is  issued  to  the  operator  asking  whether  or  not  end-of-file 
has  been  reached.  It  is  the  user's  responsibility  to  provide 
the  operator  with  correct  information  as  to  the  number  of  reels 
in  the  file. 

For  multivolume  input  files  with  nonstandard  labels, 
the  integer  option  is  required.  For  such  files,  the  compiler  is 
unable  to  distinguish  between  end-of-volume  and  end-of-file  and, 
therefore,  cannot  determine  the  number  of  reels  in  the  file. 

Therefore,  for  input  files  with  nonstandard  labels,  the 
integer  option  is  used  to  determine  the  number  of  reels  in  the 
file.  If  integer  is  not  specified,  the  system  assumes  that  the 
file  is  contained  on  one  reel. 

All  files  used  in  a program  must  be  assigned  to  an  exter- 
nal medium.  System-name  specifies  a device  class,  a particular 
device,  the  organization  of  data  upon  this  device,  and  the  exter- 
nal nam^  of  the  file.  Any  system-names  beyond  the  first  are 
treated  as  comments. 

FOR  MULTIPLE  REEL/UNIT  is  applicable  whenever  the  num- 
ber of  tape  units  or  mass  storage  devices  assigned  might  be  less 
than  the  number  of  reels  or  units  in  the  file.  However,  this 
clause  need  not  be  specified.  The  system  will  automatically 
handle  volume  switching  for  sequentially  accessed  files.  All 
volumes  must  be  mounted  for  randomly  accessed  files.  Therefore, 
when  this  clause  is  specified,  it  is  treated  as  comments. 
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System-name  has  the  following  structure: 

SYSnnn-class-dev ice-organization-name 
Where: 

' nnn  is  a three-digit  number  between  000  and  221.  This 
field  represents  the  symbolic  unit  to  which  the  file 
is  assigned. 

class  is  a two-digit  field  that  represents  the  device 
class.  The  allowable  combinations  of  characters  are: 

DA  (mass  storage) 

UT  (utility) 

UR  (unit  record) 

Files  assigned  to  DA  devices  may  have  standard  sequential 
or  direct  organization.  When  organization  is  direct,  access  may 
be  either  sequential  or  random. 

Files  assigned  to  UT  or  UR  devices  must  have  standard 
sequential  organization. 

device  is  a four-  or  five-digit  field  that  represents  a 
device  number.  Device  number  is  used  to  specify  a 
particular  device  within  a device  class. 

The  allowable  devices  for  any  given  device  class  are  as 

follows: 


Mass  storage  (DA)  2311,  2314,  2321. 

Utility  (UT)  2400,  2311,  2314,  2321. 

Unit  record  (UR)  1442R,  1442P,  1403,  1404. 
(continuous  forms  only),  1443,  2501,  2520R,  2520P, 
2540R,  2540P. 

(R  indicates  reader,  £ indicates  punch) 


Note: 


Sort  input,  output,  or  work  files  may  be  assigned  to 
any  utility  device  except  a 2321  (see  "Sort") . 
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Organization  is  a one-character  field  that  specifies 
file  organization.  The  letters  that  may  be  specified 
for  each  type  of  file  are  as  follows: 

S for  standard  sequential  files. 

A for  direct  files  — actual  track  addressing. 

D for  direct  files  — relative  track  addressing. 

TABLE  2 (page  2-64)  can  be  used  to  determine  the  correct 
choice  of  the  organization  field  in  system-names. 

name  is  a one-  to  seven-character  field  specifying  the 
external-name  by  which  the  file  is  known  to  the  sys- 
tem. If  specified,  it  is  the  name  that  appears  in  the 
file-name  field  of  the  VOL,  DLAB,  TPLAB , DLBL,  or  TLBL 
job  control  statement.  If  name  is  not  specified,  the 
symbolic  unit  (SYSnnn)  is  used  as  the  external-name. 
The  field  must  be  specified  if  more  than  one  file  is 
assigned  to  the  same  symbolic  unit. 

Program  Product  Information  — Version  3 DOS. 

For  Version  3,  the  following  additional  system  devices  are 
allowable: 


Mass  Storage  (DA)  2319,  3330. 

Utility  (UT)  2319,  3330,  3410,  3420. 

Unit  Record  (UR)  3211,  3505,  3525P,  3525R,  3525W, 
3525M. 

For  the  Version  3 DA  and  UT  devices  (2319,  3330,  3410, 

3420),  as  well  as  for  the  UR  150-character  printer  (3211),  these 
numbers  can  be  specified  in  the  device  field  of  system-name.  For 
these  devices,  the  valid  entries  for  the  other  fields  in  system- 
name  are  unchanged.  For  the  3505  card  reader,  system-name  has 
the  following  format: 


fS  R1 

SYSnnn-UR-3505-  < V [ -name  ] 

1°  J 
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The  SYSnnn  and  name  fields  have  the  same  valid  entries  as 
other  devices. 

For  the  organization  field,  the  following  considerations 
apply: 


S R specifies  standard  sequential  card  reading.  The 

optional  R field  specifies  RCE  (Read  Column  Elimi- 
nate) card  reading.  When  R is  specified,  the 
user  can  indicate  by  program  control  that  some 
card  columns  are  to  be  ignored  when  reading  data 
for  a particular  job.  (See  the  section  "RCE  and 
OMR  Format  Descriptor"  for  a more  complete  discus- 
sion.) When  the  R field  is  omitted,  RCE  card 
reading  may  not  be  specified. 

0 specifies  Optical  Mark  Reading  (OMR).  When  0 is 

specified,  then  if  at  object  time  the  device  reads 
a card  with  a marginal  mark,  a wear  mark,  or  a 
poor  erasure,  the  substitution  character  (hexadec- 
imal "3F")  is  placed  in  the  defective  column  and 
in  column  80  (an  80-character  buffer  is  always 
provided).  (Also,  see  the  section  "RCE"  and  OMR 
Format  Descriptor"  for  a further  discussion.) 

For  the  3525  card  punch  with  special  features,  a 
system-name  has  the  following  format: 


f S 

R1 

r P 

V 

R 

R 

X 

R 

[-name] 

SYSnn-UR-3525 

< 

W 

, - < 

Y 

R 

► 

M 

T 

Z 

J 

PMMPVW 
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Note:  The  optional  R code  in  the  organization  field  is 
valid  only  when  the  device  is  specified  as  3525R. 

The  name  field  has  the  same  valid  entries  as  for  other 
devices . 

The  SYSnnn  field,  for  3525  files  that  do  not  utilize  com- 
bined function  processing,  has  the  same  valid  entries  as  other 
devices. 

The  SYSnnn  field  has  special  considerations  when  combined 
function  card  processing  is  used.  For  each  associated  logical 
file  within  the  combined  function  structure  there  must  be  a 
separate  SELECT  sentence;  each  such  associated  logical  file  must 
be  specified  with  the  same  SYSnnn  field. 

For  the  device  field,  the  following  entries  are  valid: 

3525R  for  a card  read  file. 

3525P  for  a card  punch. 

3525W  for  a 2-line  card  print  file. 

3525M  for  a multiline  card  print  file. 

For  the  organization  field,  depending  on  the  device 
field,  the  following  entries  are  valid: 

3525R  S R for  sequential  card  read  files. 

(reader)  V R for  read/print  associated  files. 

X R for  read/punch/print  associated  files. 

Y R for  read/punch  associated  files. 

Note:  the  optional  R field  specifies 

RCE  (Read  Column  Eliminate)  card  reading. 

(See  "RCE  and  OMR  Format  Descriptor"  for 

further  discussion.) 

3525P  S for  sequential  card  punch  files. 

(punch)  T for  punch-and-interpret  files  (see  Note). 

X for  read /punch /print  associated  files. 

Y for  read/punch  associated  files. 

Z for  punch/print  associated  files. 
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Note:  'Ilia  T field  denotes  a normal  punched 
output  file  for  which  the  graphically  print- 
able punched  characters  are  also  printed  on 
print  lines  1 and  3 of  the  card.  Line  1 
contains  the  first  64  characters,  left 
justified;  line  3 contains  the  last  16 
characters,  right  justified. 

3525W  S for  sequential  2-line  print  files. 

(2-line  V for  read/print  associated  files, 
print)  X for  read/punch/print  associated  files. 

Z for  punch/print  associated  files. 

3525M  S for  sequential  multiline  print  files, 
(multi-  V for  read/print  associated  files, 
line  X for  read-punch-print  associated  files, 

print)  Z for  punch/print  associated  files 

• RCE  AND  OMR  FORMAT  DESCRIPTOR. 

When  the  user  specifies  0 (for  Optical  Mark  Read)  or  R 
(for  Read  Column  Eliminate)  in  the  organization  field  of  system- 
name,  then  at  object  time  he  must  provide  a format  descriptor  as 
the  first  card(s)  in  his  data  deck.  If  the  format  descriptor  is 
missing  for  such  files,  a message  is  issued  to  the  operator,  and 
the  job  is  terminated. 

The  format  descriptor  must  be  the  first  card(s)  in  the 
data  deck.  Column  1 of  the  first  card  must  be  blank.  The  key- 
word FORMAT  must  be  punched  in  columns  2 through  7.  Column  8 
must  be  blank.  Columns  9 through  71  can  contain  the  parameters 
that  specify  which  columns  of  the  data  cards  are  to  be  read  in 
OMR  or  RCE  mode.  Continuation  cards  are  valid.  A continuation 
code  must  be  placed  in  column  72  of  the  preceding  card.  Para- 
meters may  then  be  continued,  beginning  in  column  16  of  the  con- 
tinuation card.  Comments,  if  used,  must  follow  the  last  operand 
on  each  card  by  at  least  one  blank  space,  and  continuation  card 
restrictions  must  be  observed. 


The  format  of  the  format  descriptor  is  as  follows: 


I 

I 
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Nl,  N2,  N3,  and  N4  :«jy  be  any  decimal  integers  from  1 
through  80.  However,  N2  must  be  greater  than  or  equal  to  Nl.  N4 

must  be  greater  than  or  equal  to  N3.  In  addition,  for  OMR 

processing,  Nl  and  N2  must  be  both  even  or  both  odd,  N3  and  N4 
must  be  both  even  or  both  odd,  and  N3  - N2  must  be  greater  than 
or  equal  to  2. 

In  OMR  mode,  the  user  establishes  which  columns  are  to 
be  read  in  OMR  mode.  Frr  example,  if  the  user  wishes  to  read 

columns  1,  3,  5,  7,  9 anc.  70,  72,  74,  76,  78,  80  in  OMR  mode,  the 

following  format  descriptor  is  valid: 
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FORMAT  (1,9),  (70,80) 


In  RCE  mode,  the  user  specifies  those  columns  which  are 
not  to  be  read.  For  example,  if  the  user  chooses  to  eliminate 
columns  20  through  30,  and  columns  52  through  73,  the  following 
format  descriptor  is  valid: 


FORMAT  (20,30),  (52,73) 


TABLE  1.  Values  of  Organization  Field  for  File 
Organization 


Device 

Type 

ACCESS 

File 

Organization 

Track 

Addressing 

Organization  Field 
in  System-name 

tape, 

punch, 

reader, 

printer 

SEQUENTIAL 

standard 
sequent ial 

S 
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Device 

File 

Track 

Organization  Field 

Type 

ACCESS 

Organization 

Addressing 

in  System-name 

mass 

SEQUENTIAL 

standard 

— 

S 

storage 

device 

sequential 

mass 

SEQUENTIAL 

direct 

actual 

A 

storage 

device 

relative 

D 

mass 

RANDOM 

direct 

actual 

A 

storage 

device 

relative 

D 

mass 

RANDOM 

direct 

actual 

U 

storage 

device 

(REWRITE) 

relative 

W 

mass 

SEQUENTIAL 

indexed 



I 

storage 

device 

TABLE  1 (Cont.) 


Program  Product  Information  — 3 


For  Version  3 DOS 

devices,  the 

following  entries  are  valid 

Device  Type 

ACCESS 

File 

Organization 

Organization 

Field 

UR  and  UT 

(except  3505,  3525) 

SEQUENTIAL 

s tandard 
sequential 

s 

UR  3505,  3525R 
(without  OMR  or  RCE) 

SEQUENTIAL 

standard 

sequential 

s 

UR  3505  (with  OMR) 

SEQUENTIAL 

standard 

sequential 

0 

UR  3505,  3525R 
(with  RCE) 

SEQUENTIAL 

standard 

sequential 

SR 

UR  3525R,  3525P, 
3525W,  3525M 

SEQUENTIAL 

standard 

sequential 

S 

UR  3525P 

punch-interpret  file 

SEQUENTIAL 

standard 

sequential 

T 

UR  3525R,  3525W 

3525M  read/print 
associated  file 

SEQUENTIAL 

s tandard 
sequential 

V 

UR  3525R  (with  RCE) 
read/print 
associated  file 

SEQUENTIAL 

standard 

sequential 

VR 

UR  3525R,  3525P, 
3525W,  3525M 
read/punch/print 
associated  file 

SEQUENTIAL 

standard 

sequential 

x ! 

UR  3525R  (with  RCE) 
read /punch /print 
associated  file 

SEQUENTIAL 

standard 

sequential 

XR 

TABLE  2 
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Device  Type 

ACCESS 

File 

Organization 

Organization 

Field 

UR  3525R,  3525P 
read /punch 
associated  file 

SEQUENTIAL 

standard 

sequential 

Y 

UR  3525R  (with  RCE) 
read /punch 
associated  file 

SEQUENTIAL 

standard 

sequential 

YR 

UR  3525P,  3525W 

3525M  punch/print 
associated  file 

SEQUENTIAL 

standard 

sequential 

Z 

DA  (mass  storage) 
devices 

Entries  valid  for  Version  2 
are  valid  for  Version  3 

TABLE  2 (Cont.) 


CSC  GUIDELINES.  Current  CSC  procedure  is  to  use  a single 
source  coding  with  an  OS  baseline.  To  create  a particular  DOS 
or  OS  object  module  an  extract  is  made  from  the  source  library 
system  comparing  column  7 for  an  appropriate  DOS  or  OS  code. 
See  Single  Source  Library  System  procedures  at  paragraph  2.8 
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FUNCTION.  Hie  RESERVE  clause  allows  the  user  to  modify  the 
number  of  Input/output  areas  (buffers)  allocated  by  the  computer. 

FORMAT. 


r 

r *s 

NO  ] 

AREA 

! RESERVE  \ 

> ALTERNATE  ‘ 

► 

Integer  1 

AREAS 

" ' 1 

SYNTAX  RULES.  The  value  of  integer  must  not  exceed  254. 
GENERAL  RULES. 

• If  RESERVE  clause  omitted  and  SAME  AREA  clause  (1-0- 
CC'NTROL  paragraph)  used  two  areas  are  reserved. 

VENDORS'  GUIDELINES. 


• OS. 


If  RESERVE  and  SAME  AREA  clause  are  omitted,  the  number 
of  buffers  assigned  are  taken  from  the  DD  card.  If  RESERVE  and 
SAME  AREA  clause  are  omitted  and  no  buffers  are  specified  in  the 
DD  card,  two  areas  are  reserved. 

• DOS. 

A minimum  of  one  buffer  is  required  for  a file.  If  this 
clause  is  omitted  or  if  one  is  specified,  one  additional  buffer 
is  assumed. 

If  NO  is  specified,  no  additional  buffer  areas  are 
reserved  aside  from  the  minimum  of  one. 

This  clause  may  be  specified  only  for  a file  whose 
organization  is  standard  sequential. 

CSC  GUIDELINES.  None. 
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2.4.6.11  ACCESS  CLAUSE 


FUNCTION.  The  ACCESS  clause  defines  the  manner  in  which 
records  of  a file  are  to  be  accessed. 


FORMAT 


SEQUENTIAL 


ACCESS  MODE  IS 


RANDOM 


SYNTAX  RULES 


omitted 


GENERAL  RULES 


• Sequential  access  may  be  applied  to  files  residing  on 
unit  record,  or  mass  storage. 


• For  random  access,  file  must  be  assigned  to  mass  storage 
and  retrieval  is  based  upon  ACTUAL  KEY  associated  with  each 
record . 


VENDORS*  GUIDELINES.  IBM.  For  ACCESS  IS  RANDOM,  storage 
and  retrieval  are  on  the  basis  of  an  ACTUAL  or  NOMINAL  KEY  asso 
dated  with  each  record.  When  the  RANDOM  option  is  specified, 
the  file  must  be  assigned  to  a mass  storage  device.  ACCESS  IS 
RANDOM  may  be  specified  when  file  organization  is  direct, 
relative,  or  indexed. 


CSC  GUIDELINES.  None 
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2.4.6.12  ACTUAL  KEY  CLAUSE  (IBM  EXTENSION) . 

FUNCTION . The  clause  Identifies  a data-name  that  can  be 
directly  used  by  the  system  to  locate  a logical  record  on  a mass 
storage  device. 

FORMAT. 


ACTUAL  KEY  IS  data-name 


SYNTAX  RULES. 

• Data-name  may  be  from  5 to  259  bytes  in  length. 

• The  first  four  bytes  of  data-names  are  the  track 
identifier  and  must  be  defined  as  a 5- integer  binary  data  item 
whose  maximum  value  does  not  exceed  65,535. 

• The  remainder  of  data-name  — 1 through  255  bytes  in 
length  — represents  the  record  identifier.  It  is  the  user's 
responsibility  to  select  from  1 through  255  bytes  for  the 
symbolic  portion  of  the  ACTUAL  KEY  field. 

GENERAL  RULES. 

• Must  be  specified  for  direct  files  when  ACCESS  is 
RANDOM. 

• Value  of  data-name  must  be  established  prior  to  READ  or 
WRITE. 


• Data-name  must  be  defined  in  the  File,  Working-Storage, 
or  Linkage  Section.  However,  if  data-name  is  specified  in  the 
File  Section,  it  may  not  be  contained  in  the  file  for  which  it  is 
the  key. 
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2.4.6.12  ACTUAL  KEY  CLAUSE  (IBM  EXTENSION) . (Cont.) 

VENDORS*  GUIDELINES.  None. 

CSC  GUIDELINES.  Reference  is  directed  to  USACSCM  Executive 
Software  Module  P66ATP  (DOS)  and  P59ATU  (OS). 
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2.4.6.13  NOMINAL  KEY  CLAUSE  (IBM  EXTENSION) . 

FUNCTION.  The  NOMINAL  KEY  clause  is  used  with  indexed  and 
relative  files.  For  indexed  files,  the  clause  specifies  a 
symbolic  identity  for  a specific  logical  record.  For  relative 
files,  the  NOMINAL  KEY  clause  specifies  the  relative  record  num- 
ber for  a specific  logical  record,  relative  to  the  beginning  of 
the  file. 

FORMAT. 


SYNTAX  RULES. 

• When  the  NOMINAL  KEY  clause  is  specified  for  an  indexed 
file  that  is  accessed  randomly: 

Data-name  may  specify  any  fixed-length  Working-Storage 
item  from  1 through  255  bytes  in  length. 

Da ta-name  must  be  at  a fixed  displacement  from  the 
beginning  of  the  record  description  in  which  it  appears;  that 
in,  it  may  not  appear  in  the  entry  subsequent  to  an  OCCURS 
DEPENDING  ON  clause. 

The  symbolic  identity  of  the  record  must  be  placed  in 
data-name  before  the  execution  of  the  READ,  WRITE,  or  REWRITE 
statement. 

The  symbolic  identity  is  used  when  retrieving  or  up- 
dating a record  to  locate  the  logical  record  with  a matching 
RECORD  KEY  or,  when  adding  a record,  to  create  the  key  that  will 
be  associated  with  the  record. 
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2. A. 6. 13  NOMINAL  KEY  CLAUSE  (IBM  EXTENSION).  (Cont.) 

When  a READ  statement  is  executed,  a specific  logical 
record  is  made  available  from  the  file  using  the  contents  of 
data-name. 

When  a WRITE  or  REWRITE  statement  is  executed,  the 
symbolic  identity  of  the  record  specified  by  data-name  is  used 
to  determine  the  physical  location  at  which  the  record  is 
written. 

If  the  TRACK-AREA  clause  is  not  specified  for  the 
file,  then  after  a WRITE  statement  is  executed,  the  contents  of 
the  NOMINAL  KEY  field  are  unpredictable. 

• When  the  NOMINAL  KEY  clause  is  specified  for  an  indexed 
file  that  is  accessed  sequentially: 

Data-name  may  specify  any  fixed-length  Working-Storage 
item  from  1 through  255  bytes  in  length. 

Data-name  must  be  at  a fixed  displacement  from  the 
beginning  of  the  record  description  in  which  it  appears;  that  is, 
it  may  not  appear  in  the  entry  subsequent  to  an  OCCURS  DEPENDING 
ON  clause. 

The  NOMINAL  KEY  clause  must  be  specified  if  a Format  1 
START  statement  is  used.  When  the  START  statement  is  executed, 
the  contents  of  data-name  are  used  to  locate  the  record  at  which 
processing  is  to  begin.  The  next  READ  statement  accesses  this 
record. 

• When  the  NOMINAL  KEY  clause  is  used  for  a relative  file 
that  is  either  created  or  accessed  randomly: 

Data-name  may  specify  any  8- integer  binary  item  in 
Working-Storage  whose  maximum  value  does  not  exceed  15,728,6A0. 

Data-name  must  be  at  a fixed  displacement  from  the 
beginning  of  the  record  description  in  which  it  appears;  that  is, 
it  may  not  appear  in  the  entry  subsequent  to  an  OCCURS  DEPENDING 
ON  clause. 

O 
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2.4.6.13  NOMINAL  KEY  CLAUSE  (IBM  EXTENSION).  (Cont.) 

The  relative  record  number  must  be  replaced  in  data- 
name  before  the  execution  of  the  READ,  WRITE,  or  REWRITE 
statement. 


When  a READ  statement  is  executed,  a specific  logical 
record  is  made  available  from  the  file  using  the  contents  of 
data -name. 

When  a WRITE  or  REWRITE  statement  is  executed,  the 
relative  record  number  is  used  to  determine  the  physical  loca- 
tion, relative  to  the  beginning  of  the  file,  at  which  the  record 
is  written. 

GENERAL  RULES.  A NOMINAL  KEY  clause  is  required  when  an 
indexed  or  relative  file  is  accessed  randomly.  It  is  also 
required  when  an  indexed  file  is  accessed  sequentially  and  a START 
statement  is  used.  The  NOMINAL  KEY  clause  may  also  be  specified 
when  creating  a relative  file. 

VENDORS*  GUIDELINES.  None. 

CSC  GUIDELINES.  None. 
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2.4.6.14  RECORD  KEY  CLAUSE  (IBM  EXTENSION). 

FUNCTION . A RECORD  KEY  is  used  to  access  an  indexed  file. 
It  specifies  the  item  within  the  data  record  that  contains  the 
key  for  the  record. 

FORMAT. 


RECORD  KEY  IS  data-name 


SYNTAX  RULES. 

• Data-name  may  be  any  fixed-length  item  within  the  record. 
It  must  be  less  than  256  bytes  in  length. 

• When  two  or  more  record  descriptions  are  associated  with 
a file,  a similar  field  must  appear  in  each  description,  and  must 
be  in  the  same  relative  position  from  the  beginning  of  the  record, 
although  the  same  data-name  must  not  be  used  for  both  fields. 

• Data-name  must  be  defined  to  exclude  the  first  byte  of 
the  record  in  the  following  cases: 

Files  with  unblocked  records. 

Files  from  which  records  are  to  be  deleted. 

Files  whose  keys  might  start  with  a delete-code 

character  (HIGH-VALUE). 

• With  these  exceptions,  the  item  specified  by  data-name 
may  appear  anywhere  within  the  record. 

GENERAL  RULES.  The  RECORD  KEY  clause  must  be  specified 
for  an  indexed  file. 

VENDORS'  GUIDELINES.  None. 


CSC  GUIDELINES. 


None. 
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2.4.6.15  TRACK- AREA  CLAUSE  (IBM  EXTENSION) . 

FUNCTION.  This  r’ause  may  be  used  optionally  when  records 
are  to  be  added  to  an  indexed  file  in  the  random  access  mode. 
Efficiency  in  adding  a record  improves  when  the  TRACK-AREA  clause 
is  specified. 

FORMAT. 


TRACK-AREA  IS 


CHARACTERS 


SYNTAX  RULES. 

• When  records  are  to  be  added  to  random  access  files  with 
indexed  organization,  this  clause  specifies  either  an  area  (data- 
name)  or  the  size  of  an  area  (integer) . The  area  is  used  to  hold 
all  the  blocks  on  a track,  including  their  count  and  key  fields, 
plus  one  logical  record. 

• The  area  defined  by  the  TRACK-AREA  clause  must  be  a 
multiple  of  8 and  must  not  exceed  32,760  bytes. 

• When  the  integer  option  is  specified,  an  area  of  integer 
bytes  is  obtained  from  the  system  when  the  file  is  opened.  It 
is  released  to  the  system  when  the  file  is  closed. 

• When  the  data-name  option  is  specified,  data-name  must 
specify  an  item  described  with  an  01  or  77  level  number  ir.  the 
Working-Storage  Section. 

GENERAL  RULES . If  a record  is  added  to  an  indexed  file,  and 
the  TRACK-AREA  clause  was  not  specified  for  the  file,  the 
contents  of  the  NOMINAL  KEY  field  are  unpredictable  after  a WRITE 
statement  is  executed. 

VENDORS  * GUIDELINES.  None. 


CSC  GUIDELINES. 


None. 
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2.4.6.16  TRACK-LIMIT  CLAUSE  (IBM  EXTENSION). 

FUNCTION . The  TRACK-LIMIT  clause  indicates  the  relative  num- 
ber of  the  last  track  to  be  Initialized  for  the  creation  of  files 
with  direct  organization. 

FORMAT. 


TRACK-LIMIT  IS  integer 


SYNTAX  RULES.  This  clause  does  not  cause  track  allocation, 
which  is  the  function  of  a DD  card  parameter. 

GENERAL  RULES. 

• Sequential  Access:  When  used  in  conjunction  with  ACCESS 
IS  SEQUENTIAL  and  a file  opened  as  OUTPUT,  if  the  last  relative 
track  number  used  by  the  file  when  it  is  closed  is  less  than  that 
specified  in  the  TRACK-LIMIT  clause,  the  unused  portion(s)  of  the 
track(s)  is  filled  with  capacity  records  (mode  U,  V,  or  S)  or 
with  dummy  records  (mode  F) . If  the  last  relative  track  number 
used  by  the  file  is  equal  to  or  greater  than  that  specified  in 
the  TRACK-LIMIT  clause,  or  if  the  clause  is  omitted,  a capacity 
record  or  dummy  records  is  written  for  the  current  track  of  the 
file,  and  the  remaining  allocated  tracks  are  not  initialized. 

Note  that  since  the  first  relative  track  is  track  0,  at  least 
integer  plus  one  track  will  be  initialized. 

• Random  Access:  When  used  in  conjunction  with  ACCESS  IS 
RANDOM,  the  TRACK-LIMIT  clause  specifies  the  last  relative  track 
number  to  be  initialized  at  open  time;  the  tracks  are  initialized 
with  dummy  (mode  F)  or  capacity  (modes  U,  V,  or  S)  records.  This 
defines  the  total  size  of  the  file;  that  is,  no  additional  tracks 
may  be  used  by  the  file,  and  any  references  to  tracks  outside 
this  area  will  result  in  an  INVALID  KEY  condition.  If  this 
clause  omitted,  the  number  of  tracks  initialized  is  determined 
from  the  SPACE  and  VOLUME  count  parameters  of  the  DD  card.  The 
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2.4.6.16  TRACK-LIMIT  CLAUSE  (IBM  EXTENSION).  (Cont.) 

first  volume  will  be  Initialized  according  to  the  primary  allo- 
cation quantity,  and  succeeding  volumes  (if  any)  will  be  initial- 
ized from  the  secondary  quantity  (one  quantity  per  volume). 

VENDORS*  GUIDLEINES.  None. 

CSC  GUIDELINES.  None. 
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2.4.6.17  I-O-CONTROL  PARAGRAPH 


FUNCTION . The  I-O-CONTROL  paragraph  defines  some  of  the 
special  techniques  to  be  used  in  the  program. 


FORMAT 


I-O-CONTROL 


[RERUN  clause] 

[SAME  AREA  clause] 

[MULTIPLE  FILE  TAPE  clause] 

[APPLY  WRITE  ONLY  clause]  (IBM  Extension) 


SYNTAX  RULES 


GENERAL  RULES 


VENDORS’  GUIDELINES.  None 


CSC  GUIDELINES 
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2.4.6.18  RERUN  CLAUSE. 

FUNCTION . The  RERUN  clause  specifies  the  Intervals  at  which 
the  checkpoint  records  are  to  be  taken. 

FORMAT. 


SYNTAX  RULES.  File-name  represents  the  file  for  which  the 
checkpoint  records  are  to  be  written.  It  must  be  described  with 
a file  description  entry  in  the  Data  Division. 

GENERAL  RULES.  Checkpoint  records  are  written  sequentially 
and  assigned  to  mass  or  tape  storage  devices. 

VENDORS'  GUIDELINES.  System-name  specifies  the  external 
medium  for  checkpoint  file.  Follow  the  same  rules  of  formation 
as  system  name  in  FILE-CONTROL  ASSIGN  clause. 

CSC  GUIDELINES. 

• The  need  for  recovery  must  be  considered  in  all  system 
design.  The  types  of  recovery  required  by  a subsystem  will 
depend  on  such  factors  as  frequency  of  operation,  history  records 
that  must  be  maintained,  the  speed  at  which  the  subsystem  must 
recover  and  required  data  accuracy.  Every  system  designer  must 
consider  recovery  procedures  and  document  how  recovery  operations 
will  be  accomplished.  Any  generalized  approach  to  recovery  is 
inefficient  and  difficult  to  use.  Each  system  designer  must, 

o 
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2.4.6.18  RERUN  CLAUSE.  (Cont.) 

therefore,  develop  his  own  recovery  procedures.  A checkpoint 
will  be  taken  at  least  every  sixty  minutes  of  program  execution 
time.  The  RERUN  clause  is  not  always  adequate  for  use  in 
restarting  complete  systems.  Specialized  restart  procedures 
should  also  be  allowed  in  lieu  of  checkpoints  (e.g.,  job  or  step 
restart),  when  appropriate. 

• Checkpoint  Considerations.  The  system  analyst  must  give 
consideration  to  the  following  points: 

Available  I/O  device  for  writing  the  checkpoint,  i.e., 
use  unassigned  unit  if  possible. 

Select  the  input  file  that  is  close  to  sixty  minutes 
per  reel  in  running  time  and  take  a checkpoint  each  time  this 
reel  ends. 


If  the  fastest  input  file  requires  more  than  sixty 
minutes  to  reach  end  of  volume,  it  will  be  necessary  for  the  pro- 
gramer  to  use  the  number  of  records  option,  i.e.,  take  checkpoint 
every  9,999  records. 

• Program  Checkpoint  Considerations.  When  a program  is 
expected  to  run  for  longer  than  sixty  minutes,  provision  should 
be  made  for  taking  checkpoint  information  periodically  during 
the  run.  This  information  describes  the  status  of  the  job  and 
the  system  (main  storage,  input/output  status,  general  and 
floating  point  registers)  at  the  time  the  records  are  written. 
This  provides  a means  of  restarting  at  a checkpoint  position 
rather  than  at  the  beginning  of  the  entire  job  if  processing  is 
terminated  for  any  reason  before  the  normal  end-of-job.  To  per- 
mit taking  checkpoints  and  restarting,  the  programer  should 
insure  that: 

Upon  restarting,  the  program  will  be  able  to  continue 
as  though  it  has  just  reached  that  point  in  the  program  at  which 
termination  occurred. 

File  handling  is  organized  to  permit  easy  reconstruc- 
tion of  the  status  of  the  system  as  it  exists  at  the  time  of 
each  checkpoint. 
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2.4.6.18  RERUN  CLAUSE.  (Coat.) 

The  contents  of  files  are  not  altered  significantly 
between  the  time  of  the  checkpoint  and  the  time  of  the  restart  in 
sequential  files.  All  records  written  on  the  file  at  checkpoint 
time  should  be  unaltered  at  restart  time.  With  nonsequential 
files,  care  must  be  taken  to  design  the  program  so  that  a restart 
will  not  duplicate  work  that  has  been  completed  between  check- 
point time  and  restart  time. 

• Restart  Procedures.  Restart  procedures  must  list,  for 
the  operator,  the  actions  required  to  recover  that  unit  of  work 
or  series  of  jobs.  This  may  constitute  restarting  the  program 
or  may  require  that  previous  programs  be  rerun  to  recreate  input 
files.  Complete  reference  to  programs  and  files  necessary  to 
accomplish  the  rerun  must  be  given  as  well  as  any  manual  actions 
to  be  taken,  when  applicable,  prior  to  rerunning  the  program. 

• Device  Error  Recovery.  Most  I/O  devices  have  a unique 
device  error  recovery  routine.  The  appropriate  routine  is 
entered  upon  detection  of  an  error.  In  all  these  routines  an 
attempt  is  made  to  recover  from  the  error.  Additional  error 
recovery  may  be  attempted  by  programing  or  by  operator  action. 

The  following  choices  are  available: 

An  error  can  be  ignored  (record  processed) . 

The  job  can  be  terminated. 

The  problem  program  can  take  action  (an  exit  to  a user 
routine  is  allowed). 

The  record  in  error  can  be  bypassed. 


1 FEB  79 


CSCM  18-1-1 


1 


r 


2.4.6.19  SAME  CLAUSE. 

FUNCTION . The  SAME  clause  specifies  that  two  or  more  files 
are  to  use  the  same  storage  area  during  processing. 

FORMAT. 


SAME 

RECORD 

AREA  FOR  file-name-1,  < 

file-name- 2*\  

SORT 

l J 

o 


SYNTAX  RULES.  For  file-name-1,  file-name-2,  etc.,  enter  the 
names  of  the  appropriate  files  the  same  way  they  are  coded  in 
the  select  statement. 

GENERAL  RULES. 

• A specific  file-name  must  not  appear  in  more  than  one 
SAME  AREA  clause. 

• A specific  f ile-name  must  not  appear  in  more  than  one 
SAME  RECORD  AREA  clause. 

• If  one  or  more  file-name  of  a SAME  AREA  clause  appear 

in  a SAME  RECORD  AREA  clause,  all  of  the  file-names  in  that  SAME 
AREA  clause  must  appear  in  that  SAME  RECORD  AREA  clause.  However, 
that  SAME  RECORD  AREA  clause  may  contain  additional  file-names 
that  do  not  appear  in  that  SAME  AREA  clause. 

• File  names  specified  in  a given  SAME  clause  may  not  be 
open  simultaneously. 

VENDORS'  GUIDELINES.  None. 

CSC  GUIDELINES.  In  DOS  COBOL,  SAME  RECORD  AREA  should  not  be 
used.  It  increases  core  requirements  unnecessarily  and  the  same 
effect  can  be  achieved  by  using  one  WORKING- STORAGE  entry  for  all 
files  with  the  same  Record  Descriptions.  WORKING-STORAGE  entries 
are  easier  to  locate  in  a core  dump  than  a compiler  assigned  work 
area . 
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2.4.6.20  MULTIPLE  FILE  TAPE  CLAUSE. 

FUNCTION . MULTIPLE  FILE  TAPE  clause  is  used  to  indicate  that 
more  than  one  file  occurs  on  a tape  reel. 

FORMAT. 


SYNTAX  RULES.  Integer  indicates  the  position  of  the  file 
relative  to  the  beginning. 

GENERAL  RULES. 

• The  MULTIPLE  FILE  clause  is  required  when  more  than  one 
file  share  a single  physical  reel  of  tape. 

• Regardless  of  the  number  of  files  on  a reel,  only  those 
files  that  are  used  in  a program  need  be  specified. 

• If  all  the  file-names  have  been  listed  in  consecutive 
order,  the  POSITION  clause  need  not  be  given. 

• If  any  file  in  the  sequence  is  not  listed,  the  POSITION 
clause  must  be  listed. 

• No  more  than  one  file  on  the  same  reel  can  be  open  at 
one  time. 

• Tape  files  with  RECORDING  MODE  ASCII  or  EBCDIC  must  be 
named  in  the  MULTIPLE  FILE  clause. 

VENDORS'  GUIDELINES.  None. 

CSC  GUIDELINES.  NONE. 
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2.4.6.21  APPLY  WRITE-ONLY  CLAUSE  (IBM  EXTENSION) . 

FUNCTION . This  clause  is  used  to  make  optimum  use  of  buffer 
and  device  space  allocated  when  creating  a file  whose  recording 
mode  is  V.  Normally,  a buffer  is  truncated  when  there  is  not 
enough  space  remaining  in  it  to  accommodate  the  maximum  size 
record.  Use  of  this  option  will  cause  a buffer  to  be  truncated 
only  when  the  next  record  does  not  fit  in  the  unused  remainder  of 
the  buffer.  This  option  has  meaning  only  when  the  file  is  opened 
as  OUTPUT. 

FORMAT. 


APPLY  WRITE-ONLY  ON  file-name-1 


£f ile-  name- 2^ 


SYNTAX  RULE.  None. 

GENERAL  RULES. 

• The  files  named  in  this  option  must  have  standard  sequen- 
tial organization. 

• Every  WRITE  statement  associated  with  the  file  must  use 
the  WRITE  record-name  FROM  identif ier  option.  None  of  the 
subfields  of  record-name  may  be  referred  to  in  procedural  state- 
ments, nor  may  any  of  the  subfields  be  the  object  of  an  OCCURS 
DEPENDING  ON  clause. 

• However,  if  the  same  file  is  opened  for  INPUT  1-0,  the 
subfields  of  the  record-name  may  be  referred  to.  When  the  same 
file  is  opened  for  1-0,  the  WRITE  statement  must  not  be  used; 
the  REWRITE  statement  must  be  used  in  its  place. 

VENDORS*  GUIDELINES.  IBM  extension. 

CSC  GUIDELINES.  Use  of  the  APPLY  WRITE-ONLY  clause 
is  recommended  for  programs  which  create  files  which  contain 
variable  length  records. 
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2. A. 7 DATA  DIVISION. 

2. A. 7.1  ELEMENTS . 

FUNCTION . The  DATA  DIVISION  describes  the  information  that 
is  processed  by  the  object  program.  This  includes  the  data  that 
is  accepted  as  input,  created,  manipulated,  or  produced  as  out- 
put. Data  to  be  processed  falls  into  the  following  categories: 

• Data  contained  in  files  input  to  the  object  program  or 
output  from  it.  This  data  enters  or  leaves  the  internal  memory 
of  the  computer  from  a specified  computer  storage  device. 

• Data  developed  internally  and  placed  in  an  intermediate 
(working)  storage  area. 

• Constants  defined  by  the  program  in  an  intermediate 
(working)  storage  area. 

• Linkage  data  descriptions  used  for  communication  between 
the  main  program  and  subprograms. 

FORMAT. 


DATA  DIVISION. 

FILE  SECTION. 

file  description  entries  - FD 
sort  description  entries  - SD 
WORKING-STORAGE  SECTION. 

data  item  description  entries 
record  description  entries 
LINKAGE  SECTION. 

data  item  description  entries 
record  description  entries 
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2. 4. 7.1  ELEMENTS . (Cont.) 

SYNTAX  RULES. 

• DATA  DIVISION  must  begin  in  Area  A. 

• Each  section  is  optional. 

GENERAL  RULES.  Within  each  section  may  be  found  different 
levels  of  entries.  The  record  description  is  the  highest  level 
of  organization  in  all  sections  except  the  File  Section  where  it 
is  subordinate  to  the  file  description.  The  data  description  is 
subordinate  to  the  record  description.  The  entries  are  differ- 
entiated by  the  use  of  a level  indicator,  level  number  or 
special  level  number. 

• The  level  indicator  (FD  or  SD)  is  used  only  in  the  File 
Section  to  specify  the  beginning  of  a file  description  or  sort 
description  entry.  It  must  be  followed  by  at  least  one  record 
description  entry  and  its  associated  data  description  entries. 

• The  level  number  is  used  to  structure  a record  so  that 
individual  elements  of  data  within  the  record  may  be  referenced. 
The  level  number  represents  either  a record  description  or  a 
data  description. 

The  level  number  01  indicates  a record  description 
entry.  This  is  the  highest  level  of  data  organisation  and  is 
not  subordinate  to  any  other  items  of  data. 

Data  descriptions  are  subdivisions  of  record  descrip- 
tions and  have  a level  number  higher  than  01.  For  record 
descriptions  which  are  not  subdivided,  the  record  description 
and  the  data  description  are  synonymous.  Data  descriptions  may 
be  further  subdivided  as  long  as  each  level  of  subdivision  has 
a numerically  higher  level  number  assigned.  (See  REFERENCE 
FORMAT  for  formatting  standards  for  data  descriptions.) 

The  lowest  subdivision  of  a record  is  an  elementary 
item.  The  elementary  item  entry  contains  a level  number,  one  or 
more  spaces,  the  data  item  name,  and  a period.  The  size  of  the 
group  item  is  computed  from  the  sizes  of  its  elementary  items. 
Group  items  may  be  subdivisions  of  other  group  items.  The  group 


( 
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2.4. 7.1  ELEMENTS.  (Cont.) 

item  contains  all  the  subordinate  group  items  and  elementary 
items  with  level  numbers  higher  than  the  level  number  of  that 
group  item. 

• The  special  level  number  does  not  structure  a record. 
It  represents  two  types  of  special  entries. 

The  data  item  description  entry  is  used  only  in  the 
WORKING-STORAGE  SECTION  and  is  prefixed  by  a special  level 
number  of  77.  This  is  an  elementary  data  item  which  is  not  a 
subdivision  of  a group  item  and  cannot  be  subdivided. 

The  condition-name  entry  is  prefixed  by  a special 
level  number  of  88.  This  entry  indicates  a specific  value  or 
range  of  values  a data  item  might  contain  during  program 
execution. 

VENDORS'  GUIDELINES.  None. 

CSC  GUIDELINES.  None. 
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2. 4. 7. 2 FILE  SECTION. 

FUNCTION.  The  FILE  SECTION  contains  the  descriptions  of  all 
data  stored  externally  (input  and  output  files)  and  of  all 
sort-files  used  in  the  program. 

FORMAT. 


i 


FILE  SECTION. 

' FD  - file  description  entry 

record  description  entry 
data  description  entry 

SD  - sort  description  entry 

record  description  entry 
data  description  entry 


SYNTAX  RULES.  The  FILE  SECTION  begins  with  the  header  FILE 
SECTION  followed  by  a period.  This  section  contains  file 
description  and  sort  description  entries  followed  by  their  asso- 
ciated record  description  entries. 

GENERAL  RULES. 

• FILE/SORT  DESCRIPTIONS. 

In  a COBOL  program  the  File  Description  (FD)  and/or 
Sort  File  Description  (SD)  represents  the  highest  level  of  organ- 
ization in  the  FILE  SECTION.  The  FILE  SECTION  header  is  followed 
by  one  or  more  FD  entries  consisting  of  a level  indicator  (FD  or 
SD) , a data  name,  and  a series  of  independent  clauses.  These 
clauses  specify  the  size  of  the  logical  and  physical  records,  the 
recording  mode  and  label  information  and  the  names  of  the  data 
records  which  comprise  the  file.  The  entry  is  terminated  by  a 
period  and  followed  by  record  descriptions  associated  with  it. 


Q 
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2. 4. 7. 2 FILE  SECTION.  (Cont.) 

A Sort-File  Description  (SD)  gives  information  about 
the  name  and  size  of  data  records  in  the  work  file.  The  name 
Sort-File  designates  a set  of  records  sorted  by  a SORT  statement. 
There  are  no  label  procedures  which  the  user  can  control  and  the 
rules  for  blocking  and  internal  storage  are  peculiar  to  the  SORT 
statement. 

VENDORS’  GUIDELINES.  None. 

CSC  GUIDELINES. 


• DATA  NAMES . Unique  data  names  must  be  assigned  to  each 
data  item  in  a program  to  eliminate  the  necessity  for  qualifica- 
tion. Use  as  COBOL  data  names  the  abbreviation  specified  on  the 
appropriate  USACSC  Form  262-R  (Record  Specification).  A prefix 
may  be  attached  to  the  beginning  of  a standard  data  name  to 
distinguish  an  item  in  a master  record  from  the  same  item  in  a 
transaction.  For  data  names  which  are  not  in  AR  18-12,  use  a 
meaningful  description.  Source  statement  library  facilities  will 
be  used  for  record  descriptions  occurring  in  more  than  two  pro- 
grams provided  they  are  supported  by  the  compiler  and  the 
operating  system. 

The  use  of  standard  Data  Division  entries  without 
recording  them  is  available  through  the  library  copy  feature. 
These  entries  will  be  stored  in  user-created  libraries,  and 
included  in  the  source  program  at  compile  time.  The  levels  used 
by  a COPY  clause  and  the  level  of  the  data  name  being  copied 
from  the  library  must  be  the  same. 


To  avoid  data  name  qualification,  the  data  names  under 
each  file  description  may  be  prefixed.  The  prefix  should  be 
meaningful  to  the  developer  according  to  program  requirements. 
The  resultant  prefix  will  uniquely  identify  any  data  name  to  the 
FD  and  appropriate  0-level  record  description.  See  FIGURE  2-6 
for  example. 
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2. 4. 7. 2 FILE  SECTION.  (Cont.) 


FD 

A05ANV-ED IT-MASTER- IN 

01 

IE01-MOS-RECORD. 

03 

IE01-ID 

PIC  X. 

03 

FILLER 

PIC  X(79) . 

01 

IE02-L IN-RECORD. 

03 

IE02-ID 

PIC  X. 

03 

IE02-LIN 

PIC  X(6) . 

03 

FILLER 

PIC  X(73) . 

FD 

A0 5ANV- EDIT-MASTER-OUT 

01 

OE01-MOS-RECORD. 

03 

OE01-1D 

PIC  X. 

03 

FILLER 

PIC  X(79) . 

01 

OE02-LIN-RECORD 

03 

OE02-ID 

PIC  X. 

03 

OE02-LIN 

PIC  X(6) . 

03 

FILLER 

PIC  X(73) . 

FIGURE  2-6 


Refer  to  the  CSC  Guidelines  for  the  WORKING-STORAGE 
SECTION  and  the  LINKAGE-SECTION  for  the  prefixing  conventions  to 
be  followed  for  these  sections  of  the  DATA  DIVISION. 
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2.4. 7. 3 WORKING-STORAGE  SECTION. 

FUNCTION . The  WORKING-STORAGE  SECTION  describes  data  items 
and  records  that  are  developed  and  processed  internally.  It  is 
composed  of  the  section  header,  followed  by  data  item  descrip- 
tion entries  (77  - level  independent  data  items)  and  record 
description  entries  (01  - level)  in  that  order. 

FORMAT. 


SYNTAX  RULES . The  section  must  begin  with  the  section 
header  WORKING- STORAGE  SECTION  followed  by  a period. 

GENERAL  RULES.  The  section  contains  data  description 
entries  for  noncontiguous  items  (77-level)  and  record  descrip- 
tion entries,  in  that  order. 

VENDORS’  GUIDELINES.  None. 

CSC  GUIDELINES. 

• Each  independent  data  item  name  and  each  record  name 
must  be  unique.  Data  names  subordinate  to  the  record  name  must 
also  be  unique. 


• When  data  names  are  not  described  by  CSCM  18-5  or 
AR  18-12,  data  names  used  will  clearly  describe  the  function  of 
the  field. 
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2.4. 7. 3 WORKING-STORAGE  SECTION.  (Cont.) 

• All  elementary  numeric  items  used  as  a subscript  or  as 
the  object  of  an  OCCURS. . .DEFENDING  ON  or  a GO  TO. . . DEPENDING  ON 
clause  should  be  defined  as  COMPUTATIONAL.  This  will  preclude 
the  addition  of  extra  code  by  the  compiler  to  convert  the  number 
to  binary  each  time  it  is  referenced. 

• The  character  'S'  indicating  an  operational  sign  is 
strongly  recommended  for  inclusion  in  the  PICTURE  clause  of 
every  numeric  elementary  item  with  a USAGE  of  COMPUTATIONAL  or 
COMPUTATIONAL- 3. 

• Numeric  items  with  an  explicit  or  implicit  USAGE  of 
DISPLAY  should  have  a PICTURE  with  a sign  indicator  of  'S'  if 
arithmetic  is  to  be  performed  on  this  field  repeatedly. 

• Working  storage  entries  will  be  prefixed  with  "WS-"  or 
"WSNN-".  The  only  exception  being  those  data  items  and  record 
names  used  in  conjunction  with  COPY  library  which  are  excluded 
from  the  WS  or  WSNN  prefix  requirement. 

For  small-to-average-sized  programs  where  there  is 
little  or  no  problem  of  multiple  occurrences  of  the  same  data 
element  in  different  record  descriptions,  prefix  all  data  names 
with  the  characters  "WS-"  in  the  WORKING-STORAGE  SECTION.  See 
FIGURE  2-7. 

For  programs  that  are  very  large  and/or  which  have 
large  areas  of  WORKING-STORAGE,  use  the  following  rules  for  the 
WORKING-STORAGE  SECTION.  See  FIGURE  2-7. 


Example  of  use  in  small-to-average-sized  programs: 
WORKING- STORAGE  SECTION. 


77 

WS-PAGE-COUNTER 

PIC 

S999 

USAGE  IS 

COMP-3 

VALUE  IS 

ZERO. 

01 

WS-CARD-ARF.A . 

03  WS-RECORD- ID 

PIC 

X. 

03  FILLER 

PIC 

X(70) . 

03  WS-NAME-F IELD 

PIC 

X(9). 

FIGURE  2-7 
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2.4. 7.3  WORKING-STORAGE  SECTION.  (Cont.) 


Example  of  use  in  smal 1-to-average 

-sized  programs:  (Cont.) 

01  WS-TRANSACTION- ID 

PIC  X 

VALUE  IS  "A". 

| 01  WS-CORRECT ION- I D 

PIC  X.  j 

VALUE  IS  "C". 

Example  of  use  in  large  programs: 

WORKING-STORAGE  SECTION. 

01  WS01 -PAG E-COUNTER 

P 1C  S999 

USAGE  IS  COMP- 3 

VALUE  IS  ZERO. 

01  WS01-END-OF-FILE- SWITCH 

PIC  X. 

01  WS01-NAME-HOLD-AREA 

PIC  X(9) . 

01  WS02-CARD-AREA-1 . ! 

03  WS0 2 -RECORD- ID 

PIC  X. 

| 03  FILLER 

PIC  X(79) . 

01  WS0 3-CARD- AREA- 2 

REDEFINES  WS02-CARD-AREA-1 

03  WS0 3-RECORD- ID 

PIC  X. 

03  FILLER 

PIC  X(70) . 

03  WS0 3-NAME- FIELD 

PIC  X(9) . 

01  WS-TRANSACTION- ID 

PIC  X 

VALUE  IS  "A".  | 

01  WS-CORRECTION-ID 

PIC  X 

VALUE  IS  "C". 

FIGURE  2-7  (Cont.) 


1.  Prefix  all  fixed-value  constants  in  WORKING-STORAGE 
SECTION  with  the  characters  "WS-"  and  group  them  all  together  in 
one  contiguous  area  in  WORKING- STORAGE,  preferably  in  the  back  of 
the  section.  These  data  elements  would  be  used  in  place  of 
literals  in  the  body  of  the  program’s  PROCEDURE  DIVISION,  etc. 


1 FEB  79 


CSCM  IK- 1-1 


i 

2. 4. 7. 3 WORKING-STORAGE  SECTION.  (Cont.) 

2.  Prefix  all  variable  value  data  elements  in  WORKING- 
STORAGE  SECTION  with  characters  of  the  construction  "WSNN-", 
where  the  NN  is  normally  (but  not  always,  as  will  be  explained 
later)  a two-digit  numeric  designator  that  uniquely  identifies 
either  a group  of  independent  variables  and  small  record  descrip- 
tion entries  where  there  are  no  problems  of  repetition  of  the 
same  data  element  in  more  than  one  place,  or  individual  record 
description  entries  (01-level  entries).  The  areas,  of  either 
type  discussed  above,  should  be  designated  in  ascending  numeric 
sequence,  thus  making  any  portion  of  WORKING-STORAGE  easy  to  find 
in  the  program  listing.  Use  of  this  convention  allows  the  same 
data  element  to  appear  in  many  different  locations  without  having 
to  do  the  one  thing  that  will  most  destroy  a program's  usability 
and  maintainability  — making  minor  changes  to  the  meaningful 
portion  of  the  data  name  in  order  to  make  it  unique,  thus 
destroying  the  continuity  of  the  program  where  that  data  element 
is  concerned. 

For  the  larger  programs,  with  large  amounts  of  storage 
required,  the  use  of  the  dual  method  of  "WSNN-"  variables  and 
"WS-"  constants  has  numerous  advantages.  These  include: 

1.  Easy  access  to  any  portion  of  a long  listing  of 
storage  through  use  of  the  numeric  sequence. 

2.  Elimination  of  the  problem  of  data  name  uniqueness 
where  the  same  data  element  occurs  in  multiple  locations. 

3.  Unique,  easily  recognizable  labelling  of  any  area 
of  storage  through  the  designation  of  blocks  of  numbers  to  a 
given  series  of  record  tapes.  For  example,  all  report  output 
record  areas  in  WORKING-STORAGE  might  be  set  up  to  carry  prefixes 
in  the  40’s;  all  input  transaction  record  areas  prefixes  in  the 
50's;  etc. 


4.  An  extremely  high  number  of  areas  may  be  set  up 
using  this  method.  Simply  within  the  normal  numeric  series,  up 
to  99  different  blocks  of  data  elements  may  be  established.  For 
extremely  large,  programs,  though,  or  those  with  an  extremely  high 
number  of  record  description  entries,  the  following  extension  to 
the  "WSNN-"  prefix  is  suggested.  Once  the  entire  99  numbers  have 
been  employed,  begin  using  a prefix  of  the  structure  "WSXN-", 
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2. 4. 7. 3 WORKING-STORAGE  SECTION.  (Cont.) 

where  the  X is  an  alphabetic  character,  beginning  with  the  letter 
"A"  and  working  up,  with  the  N character,  still  a numeric  digit, 
working  through  the  sequence  from  zero  (0)  to  nine  (9)  for  each 
alphabetic  character.  Thus  the  first  area  would  be  prefixed 
"WSA0-",  the  second  "WSA1-",  the  third  "WSA2-",  etc.  This  method 
adds  260  more  prefix  combinations  to  the  available  set,  certainly 
covering  any  foreseeable  situations. 

5.  Using  the  dual  method,  the  appearance  of  a "WS-" 
type  prefix  immediately  labels  that  data  name  to  the  programer  as 
belonging  to  a constant  whose  value  will  not  change.  The  pro- 
gramer doesn't  have  to  constantly  keep  referring  to  the  listing 
to  determine  the  type  of  data  element  being  worked  with. 

The  "WSNN-"  data  name  prefixing  applies  to  new  programs 
under  development.  Existing  programs  will  be  converted  to  these 
standards  mechanically  through  the  use  of  CSC  COBOL  formatting 
programs  when  and  as  convenient. 
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2. A. 7. 4 LINKAGE  SECTION  (IBM  EXTENSION). 

FUNCTION . The  Linkage  Section  is  used  to  describe  data  made 
available  in  a called  program  from  a calling  program.  See 
VENDORS'  GUIDELINES  for  additional  features  available  under  IBM 
Operating  System. 

FORMAT. 


LINKAGE  SECTION. 


~ 77-level 
01-level 


data  item  description  entries 
record  description  entries 
data  description  entries 


SYNTAX  RULES.  The  section  header  is  required  followed  by 
a period. 

GENERAL  RULES.  Data  item  description  entries  and  record 
description  entries  in  the  Linkage  Section  provide  names  and 
descriptions,  but  storage  within  the  program  is  not  reserved 
since  the  data  area  exists  in  a calling  program.  All  data 
description  clauses  may  be  used  to  describe  items  in  the  Linkage 
Section,  with  one  exception:  the  VALUE  clause  may  not  be  speci- 
fied for  other  than  level-88  items. 

VENDORS'  GUIDELINES. 

• The  LINKAGE  Section,  under  the  IBM  Operating  System  (OS), 
is  also  used  to  describe  data  from  the  PARM  field  of  the  EXEC 
statement.  Data  is  made  available  to  a main  program  at  execution 
time. 
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2. 4. 7. 4 LINKAGE  SECTION  (IBM  EXTENSION).  (Cont.) 

• In  the  Linkage  Section,  the  compiler  assumes  that  each 
level-01  item  starts  on  a doubleword  boundary. 

• The  combined  total  number  of  level-77  and  level-01  items 
in  the  Linkage  Section  may  not  exceed  255. 

CSC  GUIDELINES.  Linkage  Section  entries  will  be  prefixed 
with  "LS-"  or  "LSNN-".  The  only  exception  being  when  COPY 
library  is  used  in  conjunction  with  Linkage  Section. 

• For  small-to-average-sized  programs  where  there  is  little 
or  no  problem  of  multiple  occurrences  of  the  same  data  element  in 
different  record  descriptions  prefix  all  data  names  with  the 
characters  "LS-"  in  the  LINKAGE  SECTION. 

• For  programs  that  are  very  large  and/or  which  have  large 
LINKAGE  area,  use  the  following  rules  for  the  LINKAGE  SECTION. 

Prefix  all  fixed-value  constants  in  LINKAGE  SECTION 
with  the  characters  "LS-"  and  group  them  all  together  in  one  con- 
tiguous area  in  LINKAGE  SECTION,  preferably  in  the  back  of  the 
section.  These  data  elements  would  be  used  in  place  of  literals 
in  the  body  of  the  program's  PROCEDURE  DIVISION,  etc. 

Prefix  all  variable  value  data  elements  in  LINKAGE 
SECTION  with  characters  of  the  construction  "LSNN-",  where  the  NN 
is  normally  (but  not  always,  as  will  be  explained  later)  a two- 
digit  numeric  designator  that  uniquely  identifies  either  a group 
of  independent  variables  and  small  record  description  entries 
where  there  are  no  problems  of  repetition  of  the  same  data  ele- 
ment in  more  than  one  place,  or  individual  record  description 
| entries  (01-level  entries).  The  areas,  or  either  type  discussed 

above,  should  be  designated  in  ascending  numeric  sequence,  thus 
making  any  portion  of  LINKAGE  SECTION  easy  to  find  in  the  program 
listing.  Use  of  this  convention  allows  the  same  data  element  to 
appear  in  many  different  locations  without  having  to  do  the  one 
thing  that  will  most  destroy  a program's  usability  and  maintain- 
ability making  minor  changes  to  the  meaningful  portion  of  the 
data  name  in  order  to  make  it  unique,  thus  destroying  the  conti- 
nuity of  the  program  where  that  data  element  is  concerned. 
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2. 4. 7. 4 LINKAGE  SECTION  (IBM  EXTENSION).  (Cont.) 

For  the  larger  programs,  with  large  amounts  of  storage 
required,  the  use  of  the  dual  method  of  "LSNN-"  variables  and 
"LS-"  constants  has  numerous  advantages.  Those  include: 

1.  Easy  access  to  any  portion  of  a long  listing  of 
storage  through  use  of  the  numeric  sequence. 

2.  Elimination  of  the  problem  of  data  name  uniqueness 
where  the  same  data  element  occurs  in  multiple  locations. 

3.  Unique,  easily  recognizable  labeling  of  any  area  of 
storage  through  the  designation  of  blocks  of  numbers  to  a given 
series  of  record  types.  For  example,  all  report  output  record 
areas  in  LINKAGE  SECTION  might  be  set  up  to  carry  prefixes  in 
the  40's;  all  input  transaction  record  areas  prefixes  in  the 
50's;  etc. 


4.  An  extremely  high  number  of  areas  may  be  set  up 
using  this  method.  Simply  within  the  normal  numeric  series,  up 
to  99  different  blocks  of  data  elements  may  be  established. 

5.  For  extremely  large  programs,  though,  or  those  with 
an  incredibly  high  number  of  record  description  entries,  the  fol- 
lowing extension  to  the  "LSNN-"  prefix  is  suggested.  Once  the 
entire  99  numbers  have  been  employed,  begin  using  a prefix  of  the 
structure  "LSXN-"  where  the  X is  an  alphabetic  character  begin- 
ning with  the  letter  "A"  and  working  up,  with  the  N character, 
still  a numeric  digit,  working  through  the  sequence  from  zero  (0) 
to  nine  (9)  for  each  alphabetic  character.  Thus  the  first  area 
would  be  prefixed  "LSA0-" , the  second  "LSA1-”,  the  third  "LSA2-" , 
etc.  This  method  adds  260  more  prefix  combinations  to  the  avail- 
able set,  certainly  covering  any  foreseeable  situations. 

6.  Using  the  dual  method,  the  appearance  of  a "LS-" 
type  prefix  immediately  labels  that  data  name  to  the  programer 
as  belonging  to  a constant  whose  value  will  not  change.  He 
doesn't  have  to  constantly  keep  referring  to  his  listing  to 
determine  which  type  of  data  element  he  is  working  with. 

The  "LSNN-"  data  name  prefixing  applies  to  new  programs 
under  development.  Existing  programs  will  be  converted  to  these 
standards  mechanically  through  the  use  of  CSC  COBOL  formatting 
programs  when  and  as  convenient. 
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FUNCTION.  The  file  description  entry  furnishes  information 
concerning  the  physical  structure,  identification,  and  record 
names  necessary  for  processing  a given  external  file.  The  sort- 
file  description  entry  provides  this  information  for  a file  that 
is  to  be  sorted  or  merged. 


2. 4. 7. 5 FILE  DESCRIPTION  (FD)  AND  SORT-FILE  (SD)  DESCRIPTION 


FORMAT. 


2-98 


SYNTAX  RULES. 


• The  level  indicator  (FD  or  SD)  starts  in  the  first  posi- 
tion of  the  A-margin  and  signifies  the  beginning  of  the  file  (or 
sort)  description. 


FD 

file-name 

LABEL  RECORDS  clause 

RECORDING  MODE  clause 

(IBM  Extension) 

i 

~ RECORD  CONTAINS  clause^ 

i 

^ BLOCK  CONTAINS  clause”! 

SD 

^ DATA  RECORD  clause 

Rvalue  of  clause^ 

sort-file-name 

1 

RECORDING  MODE  clause 

^RECORD  CONTAINS  clause^ 
^DATA  RECORD  clause^ 

(IBM  Extension) 
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2. 4. 7. 5 FILE  DESCRIPTION  (FD)  AND  SORT-FILE  (SD)  DESCRIPTION 
ENTRY.  (Cont.) 

• The  file-name  immediately  follows  the  level  indicator. 

• The  file  and/or  sort  descriptions  are  only  allowed  in  the 
FILE  SECTION  of  the  DATA  DIVISION. 

GENERAL  RULES.  The  file  description  entry  must  have  one  or 
more  record  description  entries  subordinate  to  it.  If  it  has 
more  than  one,  internal  storage  is  reserved  for  only  the  largest 
record  description.  Each  additional  record  description  is 
assumed  to  redefine  the  largest  one  and  occupies  the  same  storage 
area.  Redefinition  is  implied. 

VENDORS'  GUIDELINES.  None. 

CSC  GUIDELINES. 

• For  ease  of  maintenance  of  modified  record  format,  it  is 
suggested  that  all  record  description  entries  be  kept  on  a 
direct-access  storage  device  and  called  into  the  program  using 
the  COPY  verb. 

• Each  clause  under  the  FD  or  SD  entry  must  be  on  a 
separate  line. 
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2. 4. 7. 6 LABEL  RECORDS  CLAUSE. 

FUNCTION.  The  LABEL  clause  specifies  the  presence  of  labels 
for  a file. 

FORMAT. 


LABEL  RECORDS  ARE 


{ 


STANDARD 

OMITTED 


} 


SYNTAX  RULES . The  LABEL  RECORDS  clause  is  required  in  each 
file  description. 

GENERAL  RULES . STANDARD  signifies  the  existence  of  file 
labels  which  conform  to  system  specification. 

VENDORS'  GUIDELINES.  None. 

CSC  GUIDELINES.  All  output  files  must  have  standard  labels 
where  file  processing  conditions  do  not  prohibit  them. 
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2. 4. 7. 7 RECORDING  MODE  CLAUSE  (IBM  EXTENSION). 

FUNCTION.  RECORDING  MODE  specifies  the  format  of  the  logical 
data  records  on  the  file. 

FORMAT. 


I 

? 


i 


RECORDING  MODE  IS  mode 


SYNTAX  RULES.  Recording  mode  must  be  specified  according  to 
each  vendor's  requirement. 

GENERAL  RULES.  If  it  is  not  specified,  each  vendor  must  use 
a vendor-developed  algorithm  to  determine  the  mode. 

VENDORS'  GUIDELINES. 

• IBM. 

When  the  RECORDING  MODE  clause  is  not  used  to  specify 
the  recording  mode  of  the  records  in  the  file,  the  COBOL  compiler 
scans  each  record  description  to  determine  it.  The  recording 
mode  may  be  F (fixed),  U (undefined)  or  V (variable). 

A mode  of  'F'  refers  to  fixed-length  format  where  all 
logical  records  in  a file  have  the  same  length.  Each  logical 
record  must  be  equal  to  or  smaller  than  the  physical  block  size 
for  the  file.  For  a file  with  multiple  record  descriptions,  all 
computed  record  lengths  must  be  equal. 

A mode  of  'V'  refers  to  a variable  length  format  in 
which  the  logical  records  of  a file  vary  in  size.  Each  logical 
record  is  prefixed  by  a systems  generated  control  field  which 
indicates  the  length  of  the  record.  The  length  of  the  actual 
records  (without  the  control  fields)  must  be  equal  to  or  less 
than  the  block  size  specified  for  that  file. 


j 


j 

] 

; 


i 
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2. 4. 7. 7 RECORDING  MODE  CLAUSE  (IBM  EXTENSION) . (Cont.) 

A mode  of  'U*  refers  to  an  unspecified  format  where 
records  may  be  fixed  length  or  may  vary  in  size  but  do  not  have 
a record  length  control  field  appended.  No  record  may  be  larger 
than  the  specified  block  size.  These  records  are  not  blocked; 
one  physical  record  is  written  per  block. 

CSC  GUIDELINES. 

• The  RECORDING  MODE  clause  is  required  in  all  file 
description  entries  where  IBM  computers  are  utilized.  In  addi- 
tion to  the  documentation  value,  the  use  of  this  clause  also 
precludes  the  inadvertent  default  (without  diagnostic  warning  to 
the  programer) . 

• The  360  COBOL  compilers  generate  inefficient  code  for 
processing  the  V mode  format.  F mode  records  should  always  be 
used  except  in  those  cases  where  the  necessity  for  conserving 
storage  media  outweighs  the  additional  processing  time  require- 
ments. 
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2. 4. 7. 8 RECORD  CONTAINS  CLAUSE. 

FUNCTION.  The  RECORD  CONTAINS  clause  specifies  the  size  of 
data  records. 

FORMAT. 


RECORD  CONTAINS  £ integer-1  TO^]  integer-2  CHARACTERS 


[V 


! 


: 


< ) 
O 


SYNTAX  RULES.  Integer-1  and  integer-2  must  be  positive, 
unsigned  integers. 

GENERAL  RULES. 

• In  a variable  length  file,  integer-1  refers  to  the  mini- 
mum record  length  and  integer-2  refers  to  the  maximum  record 
length . 

• Integer-2  may  never  be  zero  and  should  be  used  alone 
only  for  files  containing  fixed  length  records. 

• Integer-1  and  integer-2  are  expressed  in  terms  of  actual 
bytes  of  data  required  for  the  record. 

• Actual  record  lengths  are  computed  by  the  compiler  from 
the  record  descriptions. 

VENDORS'  GUIDELINES. 

• IBM. 

If  the  record  description  for  a file  contains  more  than 
one  OCCURS  DEPENDING  ON  clause,  the  maximum  compiler-calculated 
size  may  be  greater  than  needed.  The  user  may  override  this  cal- 
culation by  specifying  the  size  desired  in  integer-2.  In  this 
case,  the  user-specified  value  of  integer-2  determines  the  amount 
of  storage  set  aside  to  contain  the  data  record. 

CSC  GUIDELINES . The  use  of  this  clause  is  recommended. 
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2. 4. 7. 9 BLOCK  CONTAINS  CLAUSE. 

FUNCTION.  The  BLOCK  CONTAINS  clause  specifies  the  size  of 
the  physical  records  (blocks)  which  contain  the  logical  records 
in  a file. 

FORMAT. 


BLOCK  CONTAINS 


Qnteger-1 


integer-2 


CHARACTERS  ''l 
RECORDS 


J 


SYNTAX  RULES.  Integer-1  and  integer-2  must  be  positive 
unsigned  integers. 

GENERAL  RULES. 

• If  this  clause  is  not  used,  a physical  record  containing 
one  and  only  one  complete  logical  record  is  assumed. 

• Use  of  the  RECORDS  option:  This  option  states  the 
number  of  logical  records  to  be  placed  in  a physical  block.  The 
compiler  computes  the  block  size  to  be  the  sum  of  integer-2 
records  of  maximum  size  plus  any  required  control  bytes. 

• Use  of  CHARACTERS  option: 

If  neither  RECORDS  nor  CHARACTERS  are  specified, 
CHARACTERS  is  assumed. 

The  CHARACTERS  option  represents  the  exact  size  of  the 
physical  record  in  terms  of  the  number  of  character  positions 
required  to  store  the  physical  record. 

Techniques  for  handling  physical  records  (blocks)  con- 
taining variable-length  logical  records  are  specified  by  each 
vendor . 


• BLOCK  CONTAINS  0 option  should  not  be  used  with  variable 
length  records  since  it  may  lead  to  inefficient  blocking  of 
logical  records.  Also,  Index-sequential  files  cannot  use  block 
contains  zero  clause. 


• BLOCK  CONTAINS  0 option  cannot  be  used  for  those  files 
utilizing  the  SAME  AREA  clause. 
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2.4. 7.9  BLOCK  CONTAINS  CLAUSE.  (Cont.) 


VENDORS'  GUIDELINES. 


IBM  specifies  that  for  variable-length  files  (mode  of  V) 
a block  descriptor  field  is  appended  to  the  beginning  of  each 
block.  This  is  a four  byte  field  which  must  be  added  to  the 
desired  actual  block  size  (integer-2)  when  the  CHARACTERS  option 
is  used. 


The  CHARACTERS  option  represents  the  exact  size  of  the 
physical  record  in  terms  of  the  number  of  bytes  occupied 
internally  by  its  logical  records  plus  slack  bytes. 


The  CHARACTERS  clause  need  not  be  specified  for  U-mode 

files. 


An  IBM  OS  extension  allows  that  integer-2  be  set  to  zero. 
If  zero  is  specified,  the  block  size  is  determined  at  object 
time  from  the  DD  parameters  or  the  data  set  label  for  the  file. 
The  file  name  may  not  appear  in  a SAME  AREA  clause  and  the  file 
must  either  be  sequential  or  indexed  file  whose  ACCESS  MODE  is 
sequential . 


CSC  GUIDELINES. 


• IMB  OS  only:  BLOCK  CONTAINS  0 clause  is  recommended  for 
all  sequential  input  files,  tapes,  or  DASD  sequential  output 
files . 


CSCM  18-1-1 


1 FEB  79 


2.4.7.10  DATA  RECORD  CLAUSE. 

FUNCTION . The  DATA  RECORDS  clause  merely  documents  the 
names  of  the  records  In  a file, 

FORMAT. 


RECORD  IS 


RECORDS  ARE 


data-name-1  I data-name 


-2]  ... 


SYNTAX  RULES . Data-name-1,  etc.,  are  the  names  of  data 
records  in  the  file.  They  are  the  names  of  the  01-level  record 
description  entries  for  that  file. 

GENERAL  RULES. 

• The  use  of  more  than  one  data-name  indicates  the  presence 
of  more  than  one  type  of  data  record.  These  data  records  may 
have  different  descriptions. 

• Multiple  data  records  for  a file  share  the  same  storage 


• The  order  in  which  data-names  are  listed  is  unimportant. 
VENDORS'  GUIDELINES.  None. 

CSC  GUIDELINES.  None. 
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2.4.7.11  RECORD  DESCRIPTION  CLAUSE. 

FUNCTION.  The  RECORD  DESCRIPTION  entry  consists  of  the 
various  levels  of  data  description  entries  which  describe  the 
record(s)  contained  in  a file. 

FORMAT. 


level  number  data-name  COPY  library-name 


SYNTAX  RULES. 

• A level  number  of  01  signifies  the  beginning  of  the 
record  description. 

• The  record  description  is  terminated  by  the  next  level 
number  of  01  or  the  next  level  indicator  of  SD  or  FD. 

GENERAL  RULES. 

• Every  file  description  (FD)  entry  or  sort  description 
(SD)  entry  must  have  at  least  one  record  description  describing 
it. 


• The  record  description  entry  is  valid  in  all  sections 
of  a COBOL  source  program. 

• If  the  record  description  is  not  subdivided,  it  is  also 
a data  description  entry  and  must  follow  the  rules  for  data 
description  entry  development. 

• The  record  description  may  be  copied  from  a direct 
access  storage  library. 

VENDORS1  GUIDELINES.  None. 

CSC  GUIDELINES.  It  is  suggested  that  for  ease  of  main- 
tenance of  record  formats,  that  the  record  description  be  copied 
from  direct-access  storage  libary. 
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2.4.7.12  DATA  DESCRIPTION  CLAUSE. 

FUNCTION . The  DATA  DESCRIPTION  entry  describes  the  charac- 
teristics of  a 77-level  data  item,  an  88-level  condition  name, 
and  all  elementary  and  group  data  items  subordinate  to  a record 
description.  It  consists  of  a level  number  and  data-name,  plus 
any  applicable  data  description  clauses. 


FORMAT. 


Format  1. 


(data-name  l 
FILLER  J 
REDEFINES  clause 
OCCURS  clause 
PICTURE  clause 
USAGE  clause 
VALUE  clause 
JUSTIFIED  clause 
SYNCHRONIZED  clause 
BLANK  WHEN  ZERO  clause 

RENAMES  clause 


Format  2 


88  condition-name 


VALUE  clause 
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2.4.7.12  DATA  DESCRIPTION  CLAUSE.  (Cont.) 

SYNTAX  RULES. 

• An  entry  plus  Its  clauses  must  be  terminated  by  a 
period . 

• The  maximum  length  for  a data  description  entry  is 
vendor  specified. 

• The  PICTURE  clause  must  be  specified  for  every  elemen- 
tary item  except  index  data  items.  (See  Table  Handling  facility 
for  discussion  of  index  data  items.) 

• Condition-name,  88-level,  entries  must  immediately 
follow  the  data  description  entry  of  which  they  are  a variable. 

GENERAL  RULES. 

• Data  description  clauses  and  77-level  data  items  are  to 
be  written  in  the  order  outlined  in  Format  1.  However,  unneces- 
sary clauses  may  be  omitted. 

• The  PICTURE,  JUSTIFIED  and  BLANK  WHEN  ZERO  clauses  may 
only  be  specified  for  elementary  items. 

• The  following  rules  apply  to  the  use  of  ^8-level 
condition  names: 

A condition- name  can  be  associated  with  any  elementary 
item  except  another  condition-name  or  index  data  item. 

A condition-name  can  be  associated  with  a group  item 
with  the  following  restrictions: 

1.  The  value  must  be  a nonnumeric  literal  or  figura- 
tive constant. 

2.  The  size  of  the  condition  cannot  exceed  the  total 
of  the  sizes  of  the  elementary  items  in  the  group. 

3.  No  element  in  the  group  may  contain  a JUSTIFIED 

clause . 
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2.4.7.12  DATA  DESCRIPTION  CLAUSE.  (Cont.) 

4.  All  Items  within  the  group  must  have  a USAGE  of 

DISPLAY . 

5.  Condition-names  may  also  be  applied  to  levels  sub- 
ordinate to  the  group  Item  that  has  a condition-name  associated 
with  It. 

VENDORS'  GUIDELINES. 

• IBM. 

The  maximum  length  for  a data  description  entry  Is  32,767 
bytes  except  for  a fixed-length  WORKING-STORAGE  or  LINKAGE 
SECTION  group  item  which  may  be  131,071  bytes. 

CSC  GUIDELINES.  When  used,  data  description  clauses  should 
be  arranged  in  the  following  order: 


REDEFINES 

VALUE 

OCCURS 

JUSTIFIED 

PICTURE 

SYNCHRONIZED 

USAGE 

BLANK  WHEN  ZERO 
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2.4.7.13  DATA  NAME  OR  FILLER  CLAUSE 

FUNCTION.  A data-name  refers  to  the  name  of  the  data  item 
being  described.  The  word  FILLER  refers  to  an  elementary  item 
of  a logical  record  which  is  never  referenced  and  need  not  be 
named . 

FORMAT. 

— 


SYNTAX  RULES.  Data-name  or  FILLER  must  immediately  follow 
the  level  number. 

GENERAL  RULES. 

• The  key  word  FILLER  may  never  be  directly  referenced. 

• In  the  WORKING-STORAGE  and  LINKAGE  SECTIONS,  level-77  and 
level-01  entries  should  be  given  unique  data-names. 

• A data-name  subordinate  to  another  data-name  must  be 
unique. 

• A data-name  refers  to  a type  of  data,  not  a specific 
value.  The  value  of  a data-name  may  vary  throughout  the  program. 

• The  key  word  FILLER  is  to  be  used  only  with  the  elemen- 
tary level  items.  Group  level  items  will  have  unique  descriptive 
labels . 

VENDORS'  GUIDELINES.  None. 

CSC  GUIDELINES. 

• When  the  term  FILLER  is  used  it  will  be  spelled  in  full. 
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2.4.7.13  DATA  NAME  OR  FILLER  CLAUSE.  (Cont.) 

• The  WORKING-STORAGE  and  LINKAGE  SECTIONS  will  be  pre- 
fixed by  "WS-"  or  "WSNN-"  and  "LS-",  or  "LSNN-",  respectively. 
Reference  WORKING-STORAGE  SECTION  and  LINKAGE  SECTION. 

• Data  names  under  each  file  description  will  follow  the 
rules  prescribed  in  the  FILE  SECTION  of  the  DATA  DIVISION. 


( 

V 
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• This  clause  may  not  be  used  at  the  01-level  in  the  FILE 
SECTION.  When  more  than  one  01-level  entry  applies  to  a file 
description,  redefinition  is  implied. 


GENERAL  RULES. 


• The  area  to  be  redefined  starts  at  data-name-2,  includes 
all  data  items  subordinate  to  data-name-2,  and  ends  when  a level 
number  equal  to  or  less  than  data-name-2  is  reached.  This  point 
should  be  the  data  description  entry  for  data-name-1.  There  can 
be  no  intervening  entries  with  numerically  lower  level  numbers 
than  data-name-1  and  data-name-2 


• The  computed  length  of  data-name-1  must  equal  the 
computed  length  of  data-name-2. 


• The  level  numbers  of  data-name-1  and  data-name-2  must  be 
the  same  but  must  not  be  an  88-level. 


• The  USAGE  may  be  changed  by  the  redefinition.  This  does 
not,  however,  change  the  existing  data. 


~ 'I 
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2.4.7.14  REDEFINES  CLAUSE. 

FUNCTION.  The  REDEFINES  clause  provides  a means  for  giving 
different  definitions  to  the  same  area  of  computer  storage. 

This  implies  a redefinition  of  the  physical  storage  area  not  the 
data  items  describing  the  area.  The  redefinition  may  involve 
structure  usage,  or  rearrangement  of  the  storage  positions. 

FORMAT. 

level  number  data-name-1  REDEFINES  data-name-2 


SYNTAX  RULES. 


• The  PJiDEFINES  clause  must  immediately  follow  data-name-1 
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2.4.7.14  REDEFINES  CLAUSE.  (Cont.) 


• The  entries  making  up  the  new  definition  (data-name-1 
and  its  subordinate  entries)  may  not  contain  VALUE  clauses. 


• Multiple  redefinitions  of  the  same  area  are  allowed. 
However,  data-name-2  in  all  redefinitions  will  be  the  same  as 
the  data-name  which  originally  described  the  area. 


• Redefinitions  may  be  nested.  A redefining  entry  may 
have  another  redefining  entry  subordinate  to  it. 


• Certain  restrictions  are  necessary  when  using  the  OCCURS 
clause  in  conjunction  with  the  REDEFINES. 


The  area  being  redefined  (data-name-2)  cannot  contain 


an  OCCURS  clause 


Data-name-2  cannot  be  subordinate  to  an  entry  con- 
taining an  OCCURS  clause. 


Data-name-1  and  its  subordinates  and  subordinates  to 
data-name-2  may  contain  the  OCCURS  clause  without  the  DEPENDING 
ON  option. 


VENDORS'  GUIDELINES.  None 


CSC  GUIDELINES.  None 
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2.4.7.15  OCCURS  CLAUSE. 

FUNCTION . The  OCCURS  clause  eliminates  the  need  for  sepa- 
rate entries  for  repeated  data  by  indicating  the  number  of  times 
a series  of  data  items  with  identical  format  is  repeated.  It 
defines  tables  and  supplies  information  on  the  application  of 
subscripts  and  indexes. 


FORMAT. 


Format  1. 


OCCURS  integer-2  TIMES 


KEY  IS  data-name-2  , data-name- 


{ ASCENDING 

\ KEY  IS  data-name-2  I ,data-name-3  I ... 

descending]  -J 

Q INDEXED  BY  index-name-1  index-name- 2^J  . ..^j 


DESCENDING 
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Format  3. 


OCCURS  integer-2  TIMES  DEPENDING  ON  data-name-1 


''ASCENDING'' 


LA 


DESCENDING 


>KEY  IS  data-name-2  ,data-name-3 


i-2  ,data-name-3^j  . ., 


^INDEXED  BY  index-name-1  £ , index- name- 2^J  . . . ~j 


SYNTAX  RULES 


• Integer-1  and  integer-2  must  be  positive  integers. 

• The  OCCURS  clause  cannot  be  specified  for  an  entry  that 
has  a 77,  88  or  01 -level  number. 

• The  OCCURS  clause  may  not  have  a variable  size  item 
subordinate  to  it.  That  is,  an  OCCURS  clause  with  the  DEPENDING 
ON  option  cannot  be  contained  within  another  OCCURS  clause. 

• A VALUE  clause  may  not  be  used  in  a description  con- 
taining an  OCCURS  clause  or  in  a description  subordinate  to  it. 

• Data-name-1,  data-name-2,  ...  may  be  qualified. 

• An  entry  which  contains  an  OCCURS  DEPENDING  ON  clause  or 
which  has  a subordinate  entry  containing  this  clause  cannot  be 
redefined. 

• These  clauses  must  be  in  the  order  shown. 

GENERAL  RULES. 

• Any  clauses  used  in  conjunction  with  an  OCCURS  clause 
applies  to  each  occurrence  of  the  data  item. 


: 


o 
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• Three  levels  of  subscripting  or  indexing  are  allowed, 
therefore,  only  three  nested  levels  of  OCCURS  clauses  are  allowed. 


r 

f 

M 


■ i 

. ! 

«. 

I 


' 


• The  subject  of  an  OCCURS  clause  is  the  data-name  of  the 
entry  containing  the  claus;e.  Whenever  the  subject  or  a data  item 
subordinate  tc  it  are  referenced  (except  in  the  SEARCH  state- 
ment), it  must  be  subscripted  or  indexed. 

• Rules  for  integer-1  and  integer-2  with  the  OCCURS  clause 

are: 

In  Format-1,  integer-2  represents  the  exact  number  of 
occurrences  of  the  subject  of  the  occurs.  It  must  be  greater 
than  zero. 


In  Format  2,  integer-1  states  the  minimum  number  of 
occurrences  of  the  subject  of  the  occurs  and  may  be  zero  or 
greater. 


♦ 


! 


I 

t 


* 


In  Format  2 and  Format  3,  integer-2  states  the  maximum 
number  of  occurrences  and  must  be  greater  than  zero.  The  value 
of  data-name-1  cannot  be  greater  than  integer-2. 

• The  DEPENDING  ON  option  indicates  that  the  subject  of 
the  entry  may  occur  a varying  number  of  times.  The  value  in 
data-name-1  determines  the  number  of  occurrences.  Data-name-1 
has  the  following  restrictions: 

It  must  be  a positive  integer  equal  or  less  than 

integer-2 . 


It  may  not  be  part  of  a table  and,  therefore,  may  not 
be  subscripted. 

If  data-name-1  is  contained  in  the  same  record  as  the 
variable  length  table  data,  data-name-1  must  be  in  a fixed  por- 
tion of  the  record.  It  cannot  be  in  the  variable  length  portion. 

If  the  value  of  data-name-1  is  reduced,  the  contents 
of  data  items  exceeding  the  new  number  of  occurrences  in  data- 
name-1  is  unpredictable. 
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• The  KEY  option  is  used  when  the  table  is  arranged  in 
sequence  and  the  SEARCH  ALL  statement  is  to  be  used.  The  KEY 
option  states  the  sequence  of  the  repeated  fields,  ASCENDING  or 
DESCENDING,  according  to  the  values  of  data-name-2,  data-name-3, 
etc.  The  data-names  have  certain  restrictions. 

If  data-name-2  is  the  name  of  the  entry  containing 
the  OCCURS  clause,  it  is  the  only  key  that  may  be  specified. 

If  data-name-2  is  not  the  name  of  the  entry  containing 
the  OCCURS  clause,  it  must  be  an  entry  subordinate  to  it.  In 
this  case,  multiple  keys  may  be  used  with  the  following  rules. 

1.  The  keys  may  be  DISPLAY,  COMP  or  COMP-3. 

2.  All  keys  must  be  subordinate  to  another  entry 
containing  an  OCCURS  clause. 

3.  The  keys  may  not  contain  an  OCCURS  clause. 

4.  The  keys  must  be  listed  in  order  of  significance. 

• The  INDEXED  BY  option  is  used  if  the  subject  of  the 
entry  or  an  item  subordinate  to  it  are  to  be  referred  to  by 
indexing.  The  index-name  is  not  defined  elsewhere  in  the  pro- 
gram since  its  allocation  and  format  are  dependent  on  the  system. 
It  is  not  data  and,  therefore,  it  cannot  be  associated  with  a 
data  hierarchy. 

No  more  than  12  index-names  may  be  used  per  entry. 

The  index-name  must  be  initialized  by  a SET  statement 
before  use. 

An  index-name  is  a fullword  and  represents  a binary 
value  of  the  actual  displacement  from  the  beginning  of  the  table 
to  the  occurrence  number  in  the  table.  This  is  calculated  in 
the  following  way: 
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(occurence  number  minus  1)  * (length  of  entry) 


If  the  entry  is  set  up  this  way, 


r 


on  the  fifth  occurrence  of  A, 


INDEX-NAME  ° (5-1)  * 10  = 40. 


• The  KEY  option  and  INDEXED  BY  options  are  further 
developed  in  the  TABLE  HANDLING  FACILITY  SECTION. 

VENDORS*  GUIDELINES 

• IBM. 


! 

! , 


! 


In  Format  2 and  Format  3,  integer-2  must  be  less  than 
32,768  bytes. 
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FUNCTION. 

FORMAT. 


IS  character  string 


SYNTAX  RULES. 

• PIC  is  an  abbreviation  of  PICTURE.  The  abbreviated  form 
is  preferred. 

• A PICTURE  clause  may  only  be  specif  > 1 at  the  elementary 
item  level. 

• The  PICTURE  clause  must  be  specified  for  each  elementary 
item  except  index  data  items  for  which  no  PICTURE  clause  is 
allowed . 

• The  character  string  must  contain  only  certain  allowable 
combinations  of  symbols  from  the  COBOL  character  set. 

• The  maximum  number  of  characters  in  a character-string 
is  30. 

GENERAL  RULES. 

• For  elementary  items  data  is  classified  into  three 
classes,  alphabetic,  numeric  and  alphanumeric.  These  classes 
are  subdivided  into  five  categories.  For  alphabetic  and  numeric 
the  classes  and  categories  are  synonymous.  The  alphanumeric 
class  includes  alphanumeric,  alphanumeric-edited  and  numeric- 
edited  categories. 

1 

* 

o 

• Group  items  are  always  considered  to  be  in  the  alpha- 
numeric class. 

jo 
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• The  size  of  an  elementary  Item  is  a function  of  the  char- 
acter poeltlone  In  the  PICTURE  character-string  and  the  USAGE 
clause. 

e The  PICTURE  clause  may  be  written  with  a symbol  and  a 
following  integer  enclosed  In  parentheses.  The  combination  X(10) 
refers  to  a character  string  of  10  X's. 

e The  following  symbols  may  appear  only  once  In  a PICTURE 
clause. 


S V . CR  DB 


e The  symbols  used  In  a PICTURE  clause  are: 

A The  'A'  represents  a character  position  which  can 
only  be  filled  by  a letter  of  the  alphabet  or  a 

space. 

B The  'B'  represents  a character  position  where  a 
space  character  will  be  Inserted. 

P The  'P'  represents  an  assumed  decimal  scaling  posi- 
tion. It  Is  used  to  specify  the  location  of  an 
assumed  decimal  point  when  the  point  Is  not  within 
the  number  that  appears  In  the  data  Item.  The  'P' 

Is  not  counted  In  the  size  of  the  data  Item  but  Is 
counted  toward  determining  the  maximum  number  of 
digit  positions  allowable  (18)  In  numeric  edited 
items  or  In  Items  that  appear  as  arithmetic 
operands.  The  scaling  character  'P'  may  only  appear 
In  a continuous  string  (may  not  be  Intermixed  with 
other  symbols)  to  the  left  or  right  of  other  char- 
acters In  the  picture.  The  sign  character  'S'  and 
the  assumed  decimal  point  'V'  are  the  only  symbols 
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which  may  appear  to  the  left  of  a leftmost  string 
of  'P's.  Since  the  'P'  implies  an  assumed  decimal 
point  (to  the  left  of  the  string  of  'P's  if  they 
are  the  leftmost  characters  and  to  the  right  if 
they  are  the  rightmost  characters)  the  assumed 
decimal  point  V is  redundant. 

The  'S'  indicates  the  presence  of  an  operational 
sign  (but  not  its  position  or  representation).  It 
is  written  in  the  leftmost  position  of  the 
character-string.  The  'S'  is  not  counted  in  the 
size  of  the  item  unless  a SIGN  clause  with  the 
SEPARATE  CHARACTER  option  is  associated  with  it. 

May  only  appear  once  per  PICTURE  clause. 

The  'V'  indicates  the  position  of  an  assumed  deci- 
mal point  and  may  appear  only  once  in  a character 
string.  The  'V'  does  not  represent  a character 
position;  it  is  used  for  alignment  only,  and  there- 
fore not  counted  in  the  size  of  the  item.  When  the 
'V'  is  the  rightmost  symbol  in  the  string,  it  is 
redundant. 

An  'X'  represents  a character  position  which  may 
contain  any  character  from  the  COBOL  character  set. 

A 'Z'  in  the  character  string  represents  a leading 
numeric  character  position.  Its  purpose  is  for 
editing.  Whenever  the  character  position  it 
represents  contains  a zero,  a space  is  substituted 
for  the  zero.  The  'Z'  is  counted  in  the  size  of 
the  item. 

The  '9'  represents  a character  position  that  can 
contain  only  a numeral.  The  '9'  is  counted  in  the 
item  size. 

A zero  represents  a position  where  the  numeral 
zero  will  be  inserted.  Each  zero  is  counted  in 
the  size  of  the  item. 
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The  comma  represents  a position  where  a comma  will 
be  inserted.  The  comma  cannot  be  the  last  character 
in  the  picture.  It  is  counted  in  the  size  of  the 
item. 

A period  represents  the  decimal  point  for  alignment 
purposes.  It  is  also  an  editing  symbol  which 
inserts  a period  in  that  position.  It  cannot  be 
the  last  character  in  a string  and  is  counted  in  the 
size  of  the  item. 


These  symbols  are  used  as  editing  sign  control  sym- 
bols. Each  represents  the  position  into  which  the 
editing  sign  control  symbol  will  be  placed.  Only 
one  type  of  these  symbols  may  be  used  per  character 
string.  These  are  counted  in  determining  the  size 
of  the  data  item. 


* An  asterisk  represents  a leading  numeric  character 
position  ir.to  which  an  asterisk  will  be  placed  when 
that  position  contains  a zero.  The  asterisks  are 
counted  in  the  size  of  the  item. 

$ The  currency  symbol  represents  a position  into  which 
a dollar  sign  is  to  be  placed.  This  symbol  is 
counted  in  the  size  of  the  item. 


• The  five  categories  of  data  and  their  characteristics  are 

An  alphabetic  item's  picture  contains  only  the  symbol 
'A'.  Its  value  must  be  a combination  of  the  26  letters  of  the 
Roman  alphabet  or  a space.  Each  character  is  stored  in  a sepa- 
rate position.  If  the  VALUE  clause  is  specified,  the  literal 
must  be  nonnumeric. 


The  picture  for  a numeric  item  is  restricted  to  symbols 
'9',  'V',  'P',  and  'S'.  The  maximum  number  of  digit  positions 
permissible  is  18.  The  contents  must  be  Arabic  numerals  from  0 
through  9 and  it  may  contain  an  operational  sign.  If  the  PICTURE 
contains  an  'S',  the  contents  of  the  item  are  positive  or  nega- 
tive depending  on  the  sign.  If  the  PICTURE  has  no  'S',  the 
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contents  of  the  item  is  considered  an  absolute  value.  A value 
specified  for  an  elementary  numeric  item  must  be  numeric. 

An  alphanumeric  item  has  a PICTURE  character  string 
which  contains  combinations  of  'A',  'X',  and  '9'.  The  Item  is 
treated  as  if  the  character  string  was  all  'X's.  A character 
string  of  all  'A's  or  all  '9's  does  not  constitute  an  alpha- 
numeric. Its  contents  must  be  from  the  Vendor's  character  set. 
All  group  items  are  treated  as  alphanumerics  and  any  values 
assigned  must  be  nonnumeric. 

An  alphanumeric  edited  item  is  restricted  to  combina- 
tions of  the  'A',  'X',  '9',  'B',  '0'  symbols.  The  character 
string  must  contain  at  least  one  'B'  and  at  least  one  'X',  or  at 
least  one  '0'  and  at  least  one  'X',  or  at  least  one  '0'  and  at 
least  one  'A'.  The  contents  must  be  characters  from  the  Vendor's 
character  set.  If  a value  is  specified,  it  must  be  nonnumeric. 

No  editing  will  be  done  on  the  value  assigned;  it  is  treated 
exactly  as  stated. 

A numeric-edited  item  is  restricted  to  the  use  of  the 
following  symbols: 


BPVZ09  , . * + - CR  DB  $ 


The  maximum  number  of  digit  positions  must  not  exceed 
18  and  the  contents  of  character  positions  which  represent  digits 
must  be  numerics.  Since  a numeric-edited  item  is  DISPLAY,  a 
value  specified  must  be  nonnumeric.  The  literal  is  placed  in  the 
value  as  stated,  no  editing  takes  place  for  initial  values. 

• Editing  is  accomplished  in  the  PICTURE  clause  using 
two  methods:  insertion  editing  or  suppression  and  replacements. 
There  are  four  types  of  insertion  editing:  simple  insertion, 
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sp»-lal  Insertion,  fixed  insertion,  and  floating  insertion, 
mere  are  two  types  of  suppression  and  replacement  editing:  zero 
suppression  and  replacement  with  spaces  and  zero  suppression  and 
replacement  with  asterisks. 

e Floating  insertion  editing  and  editing  by  zero  suppres- 
sion and  replacement  may  not  be  used  with  any  other  forms  of 
editing.  Only  one  type  of  replacement  (space  or  asterisk)  may  be 


e Special  insertion  editing  uses  the  1 . ' (period)  as  the 
insertion  character.  It  also  represents  the  decimal  point  for 
alignment  purposes  and  as  such  is  counted  in  the  size  of  the 
item.  The  use  of  the  assumed  decimal  point  (V)  and  the  actual 
decimal  point  (.)  is  not  allowed  in  the  same  picture  clause.  The 
result  of  this  type  of  editing  is  the  placement  of  the  period  in 
the  same  position  as  shown  in  the  character  string.  See 
FIGURE  2-9. 


used  with  zero  suppression  in  the  PICTURE  clause. 


e Simple  Insertion  editing  uses  only  the  (comma),  'B' 
(space)  and  '0'  (zero)  as  insertion  characters.  These  characters 
are  counted  in  the  size  of  the  item  and  represent  the  position 
where  the  comma,  space,  or  zero  is  to  be  inserted.  See 
FIGURE  2-8. 


PICTURE 

VALUE 

RESULT 

99,999 

12345 

12,345 

9,999,000 

12345 

2,345,000 

99B999B000 

1234 

01  234  000 

99B999B000 

12345 

12  345  000 

99BBB999 

123456 

23  456 

FIGURE  2-8 
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• Fixed  Insertion  editing  uses  the  currency  symbol  ($)  and 
the  editing  sign  control  symbols  '+' , 'CR'  and  'DB'  as 

insertion  characters.  Only  one  currency  symbol  and  one  sign  con 
trol  symbol  may  appear  in  one  PICTURE  character  string.  The 
insertion  character  will  occupy  the  same  position  in  the  edited 
item  as  it  occupied  in  the  PICTURE  character  string.  Restric- 
tions on  the  use  of  this  symbols  are: 


The  currency  symbol  may  be  preceded  by  '+'  or  '- 
otherwise,  it  must  be  the  leftmost  character  in 
the  character  string.  It  is  counted  in  the  size 
of  the  item. 


One  of  these  symbols  ('+'  or  must  be  the 

rightmost  or  leftmost  character  position  and  is 
counted  in  the  size  of  the  item. 


These  symbols  (’CR'  or  ’DB')  represent  two  right 
most  character  positions  and  are  counted  in  the 
size  of  the  item.  See  FIGURE  2-10. 


PICTURE 

VALUE 

RESULT 

999.99 

1.234 

001.23 

999.99 

12.34 

012.34 

999.99 

123.45 

123.45 

999.99 

1234.5 

234.50  j 
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PICTURE 

VALUE 

RESULT 

999.99+ 

+1234.567 

234.56+ 

+9999.99 

-1234.567 

-1234.56 

9999.99- 

+1234.56 

1234.56 

$999.99 

-123.45 

$123.45 

-$999.99 

-123.45 

-$123.45 

$9999. 99CR 

+123.45 

$0123.45 

$9999. 99DB 

-123.45 

$0123. 45DB 

FIGURE  2-10 


• For  floating  Insertion  editing,  the  currency  symbol  ($) 
and  editing  sign  symbols  (+  or  -)  are  used  as  insertion  charac- 
ters and  are  mutually  exclusive  in  a PICTURE  character  string. 

At  least  two  of  the  floating  insertion  characters  must  appear  in 
a string  as  the  leftmost  character.  Fixed  insertion  symbols  may 
be  embedded  in  the  floating  character  string  or  may  be  to  the 
right  of  the  string.  In  either  case,  they  are  counted  as  part  of 
the  floating  character  string. 

There  are  two  ways  of  representing  floating  insertion 
editing  in  a PICTURE  character  string.  Each  way  causes  a 
different  result  in  the  edited  field. 

The  first  way  is  to  represent  any  or  all  of  the  leading 
numeric  character  positions  to  the  left  of  the  decimal  point  by 
Insertion  characters.  This  will  result  in  an  edited  field  with  a 
single  insertion  character  placed  in  the  character  position 
immediately  preceding  the  first  non-zero  digit  in  the  data  or  the 
decimal  point,  whichever  is  leftmost.  The  character  positions  in 
the  floating  character  string  that  are  left  of  the  Inserted  sym- 
bol are  replaced  with  spaces. 

The  second  way  is  to  represent  all  the  numeric  charac- 
ter positions  in  the  PICTURE  character  string  by  the  insertion 

I 

* 

f 
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character.  The  edited  results  of  this  format  is  dependent  on 
the  value  of  the  data.  If  the  data  is  equal  to  zero,  the  entire 
edited  field  will  contain  spaces.  If  the  value  is  not  zero,  the 
same  type  of  editing  applies  as  above.  A single  insertion  char- 
acter will  be  placed  before  the  last  non-zero  digit  or  the  deci- 
mal point  (whichever  is  leftmost)  and  the  remaining  insertion 
symbols  to  the  left  will  be  replaced  by  spaces. 

To  avoid  truncation,  the  minimum  size  of  the  PICTURE 
character  string  for  the  receiving  data  item  must  be  the  number 
of  characters  in  the  sending  data  item,  plus  the  number  of  non- 
floating insertion  characters  being  edited  into  the  receiving 
data  item,  plus  one  for  the  floating  insertion  character.  See 
FIGURE  2-11. 


PICTURE 

VALUE 

RESULT 

$$$$.99 

.123 

$.12 

$$$9.99 

.12 

$0.12 

J $$,$$$,999.99 

-1234.56 

$1,234.56 

++,+++,999.99 

-123456.789 

-123,456.78 

$$,$$$, $$$.99CR 

-1234567 

$1,234, 567. 00CR 

$$,$$$,$$$. 99DB 
++,+++,+-(-+.+++ 

+1234567 

0000.00 

$1,234,567.00 

FICURE  2-11 


means  the  suppression  of  leading  zeroes  in  a numeric  item  and 
replacing  them  with  spaces  or  asterisks.  If  the  alphabetic  char 
acter  'Z'  is  used  as  the  insertion  symbol,  the  replacement  char- 
acter is  space.  If  the  insertion  symbol  is  the  replacement 

character  will  be  The  'Z'  and  may  not  be  mixed  in  the 

same  PICTURE.  Each  suppression  symbol  is  counted  in  the  size  of 
the  item. 
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2.4.7.16  PICTURE  CLAUSE.  (Cont.) 

Any  staple  insertion  characters  embedded  in  the  string  or 
to  the  right  of  the  string  are  part  of  the  string.  Simple  inser- 
tion or  fixed  insertion  editing  characters  tc  the  left  of  the 
string  are  not  Included. 

There  are  two  ways  of  representing  zero  suppression  in  a 
PICTURE  character  string.  Any  or  all  of  the  characters  left  of 
the  decimal  point  may  be  represented  by  suppression  symbols;  or 
all  of  the  characters  may  be  represented  by  suppression  symbols. 
In  the  first  instance,  leading  zeroes  are  replaced  with  replace- 
ment characters  from  the  left  until  the  first  non-zero  digit  or 
the  decimal  point  is  encountered.  In  the  second  instance,  all 
leading  zeroes  will  be  replaced  regardless  of  the  decimal 
point  - If  the  value  is  zero,  the  entire  data  item  will  be  spaces 
or  asterisks  except  for  the  decimal  point.  See  FIGURE  2-12. 


PICTURE 

VALUE 

RESULT 

ZZZZ.ZZ 

0000.00 

**** , ** 

0000.00 

****,** 

ZZZZ.99 

0000.00 

.00 

****.99 

0000.00 

**** . 00 

ZZ99.99 

0000.00 

00.00 

Z.ZZZ.ZZ+ 

+123.456 

123.45+ 

* , *** . **4. 

-123.456 

**123.45- 

$Z,ZZZ,ZZZ.ZZCR 

+12345.67 

$12,345.67 

$B* , *** ,*** . **BBDB 

-12345.67 

$***12,345.67  DB 

FIGURE  2-12 


VENDORS'  GUIDELINES.  The  character  set  for  IBM  is  the  EBCDIC 
character  sat. 

CSC  GUIDELINES.  See  CSC  COBOL  programing  techniques  section 
for  additional  guidance. 


Q 
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2.4.7.17  USAGE  CLAUSE. 

FUNCTION.  The  USAGE  clause  specifies  the  format  of  a data 
item  in  the  computer  storage. 

FORMAT. 


Format  1. 


Qjsage  10 


DISPLAY 

COMPUTATIONAL 

COMP 

INDEX 


Format  2. 


SYNTAX  RULES. 


• The  word  USAGE  does  not  have  to  be  specified.  Inserting 
the  option  desired  is  sufficient. 

• COMP  is  an  abbreviation  for  COMPUTATIONAL  and  COMP-3  is 
an  abbreviation  for  COMPUTATIONAL- 3.  The  abbreviated  form  is 
preferred . 
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2.4.7.17  USAGE  CLAUSE.  (Cont.) 

• The  JUSTIFIED,  PICTURE,  VALUE,  or  BLANK  WHEN  ZERO 
clauses  cannot  be  used  in  conjunction  with  USAGE  IS  INDEX. 

GENERAL  RULES. 

• The  USAGE  clause  may  be  used  at  any  level.  If  specified 
for  a group  item,  all  elementary  items  comprising  the  group  have 
the  same  usage.  A usage  specified  for  an  elementary  item  cannot 
contradict  the  usage  of  the  group  to  which  it  belongs. 

• If  the  USAGE  clause  is  unspecified,  the  usage  is  assumed 
to  be  DISPLAY. 

• The  DISPLAY  option  is  stored  in  character  form.  This 
option  is  valid  for  alphabetic,  alphanumeric,  alphanumeric- 
edited,  numeric-edited  and  external  decimal  items. 

• The  COMP  option  represents  a binary  data  item  to  be  used 
in  arithmetic  operations.  This  data  item  must  be  a signed 
numeric.  The  storage  required  for  a binary  item  depends  on  the 
number  of  digits  in  the  PICTURE  clause. 

For  a group  item  specified  as  COMPUTATIONAL,  only  the 
elementary  items  in  the  group  are  COMPUTATIONAL  and  can  be  used 
arithmetically.  The  group  item  cannot  be  used  in  computations. 

• The  COMP- 3 option  is  used  for  internal  decimal  items. 

The  data  is  stored  in  core  in  packed  decimal  format  with  2 
digits  per  byte  and  the  sign  in  the  rightmost  half-byte.  The 
data  item  must  be  numeric. 

• The  INDEX  option  specifies  an  index  data  Item  which  is 
an  elementary  item  corresponding  to  an  occurrence  number  of  an 
element  of  a table.  The  value  of  an  index  data  item  is  assigned 
by  the  SET  statement  and  is  equal  to  the  displacement  of  the 
element  from  the  beginning  of  the  table. 

If  a group  item  is  described  with  a USAGE  IS  INDEX 
clause,  the  elementary  items  within  the  group  are  the  index  data 
items.  The  group  itself  is  not  an  index  data  item  and  cannot  be 
used  in  SEARCH  or  SET  statements  or  in  relation  conditions. 
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2.4.7.17  USAGE  CLAUSE.  (Cont.) 


The  index  data  item  can  only  be  referred  to  directly  by 
SEARCH  or  SET  statements  or  in  a relational  condition.  If  a 
group  item  is  used  in  a move  or  an  input/output  statement,  any 
index  data  item  within  it  is  moved  without  data  conversion  of 
its  contents.  (See  Table-Handling  for  additional  information 
on  using  index  data  items.) 


VENDORS'  GUIDELINES. 


IBM. 


The  COMP-3  option  is  an  IBM  extension  to  the  ANS  COBOL 
standards . 


The  storage  required  for  a COMP  item  is:  1 to  4 digits 
require  2 bytes  (halfword),  5 to  9 digits  require  4 bytes  (full- 
word),  and  10  to  18  digits  require  8 bytes  (2  fullwords) . 


CSC  GUIDELINES.  The  COMP-3  usage  is  the  normal  mode  of 


operation  for  handling  numeric  data  fields  on  IBM  360/370. 
Numeric  fields  may  be  converted  from  DISPLAY  usage  to  COMP-3 
usage  at  execution  time  using  additional  memory  and  processing 
time.  See  CSC  Programing  Techniques  Section  for  additional 
guidance. 
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2.4.7.18  VALUE  CLAUSE.  (Cont.) 

GENERAL  RULES. 

• The  VALUE  clause  is  only  applicable  to  the  WORKING- 
STORAGE  SECTION.  VALUE  can  be  specified  in  LINKAGE  SECTION  or 
FILE  SECTION  only  with  condition-names. 

• The  VALUE  clause  specifies  the  initial  value  of  an  item. 

• Certain  rules  pertain  to  usage  of  the  VALUE  clause: 

If  the  item  is  numeric,  the  literals  must  be  numeric. 
The  literal  will  be  aligned  from  right  to  left  and  must  not 
require  truncation.  In  other  words  '\e  value  must  be  within 
the  numeric  range  described  by  the  IruTURE  clause. 

If  the  item  is  alphabetic  or  alphanumeric,  the 
literals  must  be  nonnumeric.  The  literal  will  be  aligned  from 
left  to  right  and  must  not  require  truncation. 

Editing  characters  in  the  PICTURE  clause  are  used  to 
determine  the  size  of  the  item.  Therefore,  the  value  for  an 
edited  item  must  appear  in  edited  form. 

• The  VALUE  clause  must  not  conflict  with  other  clauses  in 
the  data  description  of  the  item  or  in  the  data  description 
within  the  hierarchy  of  the  item. 

• The  VALUE  clause  cannot  be  specified  in  a data  descrip- 
tion entry  which  contains  either  an  OCCURS  clause  or  a REDEFINES 
clause.  It  also  cannot  be  specified  in  a data  description  entry 
which  is  subordinate  to  an  entry  containing  an  OCCURS  or 
REDEFINES  clause. 

• If  a VALUE  clause  is  used  with  a group  level  item,  the 
literal  must  be  a figurative  constant  or  a nonnumeric  literal. 
The  group  is  initialized  as  though  the  USAGE  was  display  and  no 
consideration  is  made  of  the  USAGE  of  the  subordinate  items 
within  the  group.  Subordinate  levels  of  entries  may  not  contain 
a VALUE  clause. 

• The  VALUE  clause  cannot  be  specified  for  a group  con- 
taining items  with  descriptions  including  JUSTIFIED, 
SYNCHRONIZED,  or  USAGE  (other  than  USAGE  IS  DISPLAY). 


i 

i 


i 
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2. A. 7. 18  VALUE  CLAUSE.  (Cont.) 

• Format  2 can  be  specified  only  for  a condition-name 
(level  88)  entry.  Literal-3  must  be  larger  than  literal-2, 
literal-5  must  be  larger  than  literal-A,  etc. 

VENDORS'  GUIDELINES. 

• IBM. 

If  VALUE  is  not  specified,  the  initial  value  is 
unpredictable. 


and 


CSC  GUIDELINES.  None. 
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2.4.7.19  JUSTIFIED  CLAUSE 


FUNCTION . The  JUSTIFIED  clause  specifies  non-standard  posi 
tioning  of  data  within  a receiving  alphabetic  or  alphanumeric 
data  item. 


FORMAT 


JUSTIFIED 


RIGHT 


JUST 


SYNTAX  RULES 


• The  JUSTIFIED  clause  is  applicable  only  at  the  elementary 


• This  clause  may  only  be  specified  for  fixed-length  alpha 
betic  or  alphanumeric  data  items. 


• This  clause  may  not  be  used  with  88-level  data  items 


GENERAL  RULES 


• The  JUSTIFIED  clause  is  only  applicable  when  it  is  in  a 
data  description  entry  which  is  the  receiving  field  of  a MOVE 
instruction. 


• Alignment  of  alphabetic  and  alphanumeric  data  in  the 
receiving  field  of  a MOVE  occurs  as  follows: 


This  type  of  data  is  normally  aligned  within  an  elemen 
tary  data  item  beginning  in  the  left-most  position  and  moving 
character  by  character  toward  the  right.  Space  filling  or  trun- 
cation occurs  to  the  right. 


If  JUSTIFIED  is  specified,  the  alphabetic  or  alpha- 
numeric data  is  aligned  beginning  in  the  rightmost  position  and 
moving  character  by  character  toward  the  left.  Space  filling  or 
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2.4.7.19  JUSTIFIED  CLAUSE.  (Cont.) 

truncation  occurs  to  the  left.  If  JUSTIFIED  is  specified  and  the 
receiving  field  is  larger  than  the  sending  data  item,  the  data  is 
aligned  at  the  rightmost  character  position  in  the  data  item  with 
space  fill  for  the  leftmost  character  positions. 

VENDORS'  GUIDELINES.  None. 

CSC  GUIDELINES.  None. 
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2.4.7.20  SYNCHRONIZED  CLAUSE. 

FUNCTION . The  SYNCHRONIZED  clause  specifies  the  alignment 
of  an  elementary  item  on  one  of  the  proper  boundaries  of  core 
storage.  It  is  used  to  insure  efficiency  when  performing  arith- 
metic operations  on  an  item. 

FORMAT. 


SYNCHRONIZED 

SYNC 


LEFT 

RIGHT 


SYNTAX  RULES. 

• SYNC  is  an  abbreviation  of  SYNCHRONIZED  and  is  the 
preferred  form. 

• This  clause  is  designed  to  be  used  only  with  elementary 
items.  Some  vendors  also  allow  SYNC  to  be  used  with  01-level 
record  descriptions.  (See  VENDORS'  GUIDELINES.) 

GENERAL  RULES. 

• This  clause  reserves  the  storage  area  between  the  left- 
most and  rightmost  natural  boundaries  for  this  data  item  and 
aligns  it  within  these  boundaries.  If  the  data  item  is  smaller 
than  the  reserved  space,  slack  bytes  are  inserted  to  fill  the 
unused  positions. 

• If  slack  bytes  are  added,  they  do  not  affect  the  size 
of  the  elementary  item.  They  are  included  in  the  size  of  the 
group  item  to  which  the  synchronized  elementary  item  belongs. 

• If  the  LEFT  or  RIGHT  options  are  not  specified,  the 
vendor  determines  alignment  within  the  natural  boundaries.  The 
vendor  may  override  these  options.  (See  VENDORS'  GUIDELINES.) 
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2.4.7.20  SYNCHRONIZED  CLAUSE.  (Cont.) 

If  LEFT  is  specified,  Che  item  will  be  aligned  begin- 
ning from  left  to  right. 

If  RIGHT  is  specified,  the  item  will  be  aligned  begin- 
ning from  right  to  left. 

• If  the  data  description  contains  an  operational  sign, 
the  sign  will  appear  in  its  normal  operational  position  regard- 
less of  whether  SYNC  RIGHT  or  SYNC  LEFT  is  specified. 

• Whenever  a SYNC  item  is  referenced  in  the  source  program, 
the  original  PICTURE  size  of  the  item  is  used  in  determining  any 
action  which  depends  on  size,  such  as  truncation  or  justification. 

• Where  a SYNC  clause  is  used  within  the  scope  of  an 
OCCURS  clause,  each  occurrence  of  the  item  is  synchronized. 

• When  a SYNC  clause  is  used  with  an  item  which  contains  a 
REDEFINES  clause,  the  item  that  is  being  redefined  must  have  the 
proper  boundary  alignment  for  the  item  that  is  redefining  it. 

• This  clause  is  hardware  dependent  and  each  vendor  speci- 
fies the  application  of  the  clause. 

VENDORS'  GUIDELINES. 

• IBM. 

IBM  allows  the  use  of  SYNC  with  (81-level  record  descrip- 
tions as  well  as  elementary  items.  If  used  at  the  01-level, 
every  elementary  item  within  the  record  description  is 
synchronized . 

If  either  the  LEFT  or  RIGHT  option  is  specified,  it  is 
treated  as  comments. 

The  boundary  alignment  of  a data  item  depends  upon  the 
USAGE  clause  specified. 

1.  For  DISPLAY  or  COMP-3  items,  the  SYNC  clause  is 
treated  as  comments. 


r 

l 
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2.4.7.20  SYNCHRONIZED  CLAUSE.  (Cont.) 

2.  For  COMP  items,  the  alignment  and  size  of  boundaries 
are  determined  by  the  size  of  the  item. 

a.  If  the  PICTURE  is  in  the  range  from  S9  through 

S9(4),  the  item  is  aligned  on  a halfword  (even)  boundary. 

b.  If  the  PICTURE  is  in  the  range  from  S9(5)  through 

S9(18),  the  item  is  aligned  on  a fullword  (multiple  of  4) 
boundary . 

* 

i 

When  SYNC  is  not  specified  for  binary  items,  no  space  is 
reserved  for  slack  byte3.  Even  if  the  COMP  item  is  aligned,  it 
is  assumed  to  be  unsynchronized  and  the  computer  generates  coding 
to  move  the  item  to  a properly  aligned  field  before  it  is  used 
in  computation. 

/ 

f 

r 

\ 

\ 

• 

In  the  FILE  SECTION,  the  compiler  assumes  that  all 
level-01  records  containing  synchronized  items  are  aligned  on  a 
doubleword  boundary  in  the  buffer. 

- 

In  the  WORKING-STORAGE  SECTION,  the  compiler  aligns  all 
level-01  entries  on  a doubleword  boundary. 

• 

In  the  LINKAGE  SECTION,  the  compiler  assumes  that  all 
level-01  entries  begin  on  a doubleword  boundary.  If  the  CALL 
statement  with  the  USING  option  is  used,  all  data  items  refer- 
enced by  the  calling  and  called  programs  must  be  correspondingly 
aligned. 


CSC  GUIDELINES.  Use  of  SYNC  clause  reduces  generated  coding 
and  therefore  run  time  for  arithmetic  operations  and  sub- 
scripting. To  prevent  addition  of  slack  bytes  all  COMP  SYNC 
items  of  the  same  type,  such  as  counters,  subscripts,  totals, 
etc.,  should  be  of  the  same  length  and  grouped  together  under  the 
same  0 entry. 


1 
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2.4.7.21  BLANK  WHEN  ZERO  CLAUSE. 

FUNCTION.  The  BLANK  WHEN  ZERO  clause  Is  an  editing 
which  allows  an  item  to  be  set  to  blanks  when  its  value 

zeroes . 

feature 

is 

FORMAT. 
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2.4.8  PROCEDURE  DIVISION. 

2.4.8. 1 General  Description.  The  PROCEDURE  DIVISION  must  be 
included  in  every  COBOL  source  program.  This  division  specifies 
those  procedures  needed  to  solve  a given  problem.  These  proce- 
dures (computations,  logical  decision,  input/output)  are 
expressed  in  meaningful  statements,  similar  to  English,  which 
employ  the  concepts  of  verbs  to  denote  actions,  and  statements 
and  sentences  to  describe  procedures. 

2 . 4 . 8 . 2 Structure. 


FORMAT. 


PROCEDURE  DIVISION 

USING  identifier-1  Qdentif ier-2 

]-•]• 

[ 

DECLARATIVES. 

{ 

section-name  SECTION.  USE  Sentence. 

paragraph-name.  < 

l 

sentence  * * J # * j * * * 

r— 

END  DECLARATIVES."] 

r 

1 

section-name  SECTION  [_  priority J 

paragraph-name. 

^sentence  ^ ^ . 

TITLE.  The  PROCEDURE  DIVISION  title  must  begin  with  the 
words  PROCEDURE  DIVISION  in  Margin-A  followed  by  a period.  This 
must  appear  on  a line  by  itself. 
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2. 4. 8. 2 Structure.  (Cont.) 

HEADER.  The  PROCEDURE  DIVISION  header  is  followed,  option- 
ally, by  Declarative  Sections,  which  are  in  turn  followed  by 
procedures,  each  made  up  of  statements,  sentences,  paragraphs, 
and/or  sections,  in  a syntactically  valid  format.  The  end  of 
the  PROCEDURE  DIVISION  (and  the  physical  end  of  the  program)  is 
that  physical  position  in  a COBOL  source  program  after  which  no 
further  procedures  appear. 

STATEMENT.  The  statement  is  the  basic  unit  of  the  PROCEDURE 
DIVISION.  A statement  is  a syntactically  valid  combination  of 
words  and  symbols  beginning  with  a COBOL  verb.  There  are  three 
types  of  statements:  conditional  statements  containing  condi- 
tional expressions  (that  is,  test  for  a given  condition), 
imperative  statements  consisting  of  an  imperative  verb  and  its 
operands,  and  compiler-directing  statements  consisting  of  a 
compiler-directing  verb  and  its  operands. 

SENTENCE.  A sentence  is  composed  of  one  or  more  statements. 
The  statements  may  optionally  be  separated  by  semicolons.  A 
sentence  must  be  terminated  by  a period  followed  by  a space. 

PARAGRAPH . Several  sentences  that  convey  one  idea  or  proce- 
dure may  be  grouped  to  form  a paragraph.  A paragraph  must  begin 
with  a paragraph-name  followed  by  a period.  A paragraph  may  be 
composed  of  one  or  more  successive  sentences.  A paragraph  ends 
immediately  before  the  next  paragraph-name  or  section-name,  at 
the  end  of  the  PROCEDURE  DIVISION,  or,  in  the  Declarative 
portion,  at  the  key  words  END  DECLARATIVES. 

• PARAGRAPH  AND  SECTION  NAMES.  Paragraphs  should  be  kept 
short  and  modular,  no  more  than  one  routine  should  be  contained 
in  the  same  paragraph,  and  paragraph  names  should  be  meaningful 
and  should  be  stated  in  terms  of  the  application  if  possible. 

• PARAGRAPH  NUMBERING.  A four  digit  number  will  be  the 
first  part  of  each  paragraph  or  section  name  followed  by  a hyphen 
and  a title.  Paragraphs  will  be  in  ascending  order  by  this 
number.  All  paragraph  numbers  will  be  initially  incremented  by 
10's  or  more  to  allow  room  for  future  insertions.  If  additional 
insertions  are  needed,  use  a hyphen  and  another  number  following 
the  first  four  digit  numbers  co  maintain  sequence.  Alphabetic 
characters  forming  a meaningful  title  will  be  included  after  the 
number  as  shown  below: 
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2. 4. 8. 2 Structure.  (Cont.) 


02 10-READ- INPUT-TRAN  SACT ION . 


SECTION.  One  or  more  paragraphs  form  a section.  A section 
must  begin  with  a section  header  (header-name  followed  by  the 
word  SECTION,  followed  by  a period;  if  program  segmentation  is 
desired,  a space  and  a priority  number  followed  by  a period  may 
be  inserted  after  the  word  SECTION).  The  general  term 
procedure-name  may  refer  to  both  paragraph-names  and  section- 
names  . 

USING  PHRASE.  The  USING  phrase  is  present  if  and  only  if 
the  object  program  is  to  function  under  control  of  a CALL  state- 
ment, and  the  CALL  statement  in  the  calling  program  contains  a 
USING  phrase. 

• OPERANDS . Each  of  the  operands  of  the  USING  phrase  of 
the  PROCEDURE  DIVISION  header  must  be  defined  as  a data  item  in 
the  LINKAGE  SECTION  of  the  program  in  which  this  header  occurs. 
Also,  it  must  have  a 01  or  77-level  number. 

2. 4. 8. 3 General  Rules.  The  PROCEDURE  DIVISION  is  organized 
with  the  following  basic  grouping  of  expressions: 

1.  Declaratives. 

2.  Statements. 

3.  Arithmetic  Expressions. 

4.  Conditional  Expressions. 
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2. 4. 8. 3.1  Declaratives.  DECLARATIVE  SECTIONS  must  be  grouped 
at  the  beginning  of  the  PROCEDURE  DIVISION  preceded  by  the  word 
DECLARATIVES.  Declarative  sections  are  concluded  by  the  key 
words  END  DECLARATIVES.  (For  more  information,  see  USE  AFTER 
ERROR  PROCEDURE.) 

2. 4. 8. 3. 2 Statements.  A STATEMENT  is  a syntactically  valid 
combination  of  words  and  symbols  beginning  with  a COBOL  verb  or 
the  word  IF  followed  by  any  appropriate  operands,  and  other 
COBOL  words  that  are  necessary  for  the  completion  of  the  state- 
ment. There  are  three  types  of  COBOL  statements.  They  are: 
compiler-directing,  imperative  and  conditional. 

• CATEGORIES  OF  STATEMENTS.  Refer  to  FIGURE  2-13. 
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2. 4. 8. 3. 2 Statements.  (Cont.) 


CATEGORY 


VERBS 


Conditional 


" ADD  (SIZE  ERROR) 

CALL  (OVERFLOW) 

COMPUTE  (SIZE  ERROR) 

DELETE  (INVALID  KEY) 

DIVIDE  (SIZE  ERROR) 

IF 

MULTIPLY  (SIZE  ERROR) 

READ  (AT  END  or  INVALID  KEY) 
RECEIVE  (NO  DATA) 

RETURN  (AT  END) 

REWRITE  (INVALID  KEY) 

SEARCH  (AT  END) 

START  (INVALID  KEY) 

STRING  (OVERFLOW) 

SUBTRACT  (SIZE  ERROR) 
UNSTRING  (OVERFLOW) 

WRITE  (INVALID  KEY  or 
^ END-OF-PAGE) 


' 


Data  Movement 


Ending 


INITIALIZE 
INSPECT  (REPLACING) 
MOVE 
STRING 
w UNSTRING 

STOP 


FIGURE  2-13  (Cont.) 
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2. 4. 8. 3. 2 Statements.  (Cont.) 


CATEGORY 


VERBS 


ACCEPT 

CLOSE 

DELETE 

DISABLE 

DISPLAY 

ENABLE 

OPEN 

PURGE 

READ 

RECEIVE 

REWRITE 

SEND 

START 

STOP  (literal) 

SUSPEND 

WRITE 


Input-Output 


Inter-Program 

Communicating 


CALL 

CANCEL 


MERGE 

RELEASE 


Ordering 


RETURN 

SORT 


ALTER 
CALL 
EXIT 
GO  TO 
PERFORM 


Procedure  Branching 


FIGURE  2-13  (Cont.) 
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2. 4. 8. 3. 2 Statements.  (Cont.) 


VERBS 


CATEGORY 


GENERATE 

INITIATE 


Report  Writing 


SUPPRESS 

TERMINATE 


SEARCH 


Table  Handling 


FIGURE  2-13  (Cont.) 


IF  is  a verb  in  the  COBOL  sense 
it  is  not  a verb  in  English. 


• COMPILER-DIRECTING  STATEMENT 


A compiler-directing 
statement  directs  the  compiler  to  take  action  at  compilation 
time.  A compiler-directing  statement  contains  one  of  the 
compiler-directing  verbs  (COPY,  ENTER,  DEBUG)  and  its  operands 


• IMPERATIVE  STATEMENT.  An  imperative  statement  indicates 
a specific  unconditional  action  to  be  taken  by  the  object  pro- 
gram. An  imperative  statement  is  any  statement  that  is  neither 
a conditional  statement,  nor  a compiler-directing  statement. 

An  imperative  statement  may  consist  of  a sequence  of  imperative 
statements,  each  possibly  separated  from  the  next  by  a separator 
The  imperative  verbs  are  listed  on  FIGURE  2-14. 
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2. 4. 8. 3. 2 Statements.  (Cont.) 


ACCEPT 

DISPLAY 

MULTIPLY  (1) 

SORT 

ADD  (1) 

DIVIDE  (1) 

OPEN 

START  (2) 

ALTER 

EXIT 

PERFORM 

STOP 

CALL  (3) 

GENERATE 

PROCESS 

SUBTRACT  (1) 

CANCEL 

GO 

READ  (5) 

SUPPRESS 

CLOSE 

HOLD 

RECEIVE  (4) 

SUSPEND 

COMPUTE 

(1)  INITIATE 

RELEASE 

TERMINATE 

DELETE  (2)  MOVE 

RETURN  (5) 

WRITE  (6) 

REWRITE  (2) 

SEARCH  (5) 

SET 

(1) 

Without 

the  optional  SIZE  ERROR  phrase. 

(2) 

Without 

the  optional  INVALID 

KEY  phrase. 

(3) 

Without 

the  optional  ON  OVERFLOW  phrase. 

(4) 

Without 

the  optional  NO  DATA  phrase. 

(5) 

Without 

the  optional  AT  END 

phrase  or  INVALID  KEY 

phrase. 

(6) 

Without 

the  optional  INVALID 

KEY  phrase  or  END-Or- 

-PAGE  phrase. 

FIGURE  2-14 


Whenever  'imperative-statement'  appears  in  the  General 
Format  of  statements  described  in  this  Chapter,  'imperative- 
statement'  refers  to  that  sequence  of  consecutive  Imperative 
statements  that  must  be  ended  by  a period  or  an  ELSE  phrase  asso- 
ciated with  a previous  IF  statement  or  a WHEN  phrase  associated 
with  a previous  SEARCH  statement. 

• CONDITIONAL  STATEMENT.  A conditional  statement  is  a 
statement  containing  a condition  that  is  tested  to  determine 
which  of  the  alternate  paths  of  program  flow  is  to  be  taken.  A 
conditional  statement  is  one  of  the  following: 
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2. 4. 8. 3. 2 Statements.  (Cont.) 

1.  An  IF,  SEARCH  or  RETURN  statement. 

2.  A READ  statement  that  specifies  the  AT  END  or  INVALID 
KEY  phrase. 

3.  A WRITE  statement  that  specifies  the  INVALID  KEY  or 
END-OF-PAGE  phrase. 

4.  A START,  REWRITE  or  DELETE  statement  that  specifies 
the  INVALID  KEY  phrase. 

5.  An  arithmetic  statement  (ADD,  COMPUTE,  DIVIDE, 
MULTIPLY,  SUBTRACT)  that  specifies  the  SIZE  ERROR 
phrase. 

6.  A RECEIVE  statement  that  specifies  a NO  DATA  phrase. 

2. 4. 8. 3. 3 Arithmetic  Expressions. 

• DEFINITION.  An  ARITHMETIC  EXPRESSION  can  be  any  of  the 
following: 

1.  An  identifier  described  as  a numeric  elementary 
item. 

2.  A numeric  literal. 

3.  Those  identifiers  and  literals  separated  by  arith- 
metic operators. 

4.  Two  arithmetic  expressions  separated  by  an  arith- 
metic operator. 

5.  An  arithmetic  expression  enclosed  in  parentheses. 

Any  arithmetic  expression  may  be  preceded  by  an  unary 
operator. 

Those  identifiers  and  literals  appearing  in  an  arith- 
metic expression  must  represent  either  numeric  elementary  items 
or  numeric  literals  on  which  arithmetic  may  be  performed. 
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2. 4. 8. 3. 3 Arithmetic  Expressions.  (Cont.) 

• ARITHMETIC  OPERATORS.  There  are  five  binary  arithmetic 
operators  and  two  unary  arithmetic  operators  that  may  be  used 
in  arithmetic  'jxpressions.  They  are  represented  by  specific 
characters  that  must  be  preceded  by  a space  and  followed  by  a 
space.  Refer  to  FIGURE  2-15. 


Arithmetic  Operator 


Meaning 


ADDITION 

SUBTRACTION 

MULTIPLICATION 

DIVISION 

EXPONENTIATION 


Unary  Arithmetic  Operator 


Meaning 


The  effect  of  multiplication 
by  the  numeric  literal  +1 
The  effect  of  multiplication 
by  the  numeric  literal  -1 


FIGURE  2-15 


• PERMISSIBLE  ARITHMETIC  SYMBOL  PAIRS.  A symbol  pair  in 
an  arithmetic  expression  is  the  occurrence  of  two  symbols  that 
appear  in  sequence. 


Permissible  Symbol  Pairs.  Refer  to  FIGURE  2-16. 
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2. 4. 8. 3. 3 Arithmetic  Expressions.  (Cont.) 


Symbol 

Second 

Symbol 

Variable 

(identifier 

or  literal) 

* /**  + — 

- 

unary  + or 

unary  - 

( 

) 

Variable 
(identifier 
or  literal) 


* /**  + _ 


unary  + 
or 

unary  - ( 


indicates  a permissible  pairing 
indicates  that  the  pairing  is  not  permitted 


FIGURE  2-16 


An  arithmetic  expression  may  begin  only  with  a left 
parenthesis,  a unary  +,  a unary  or  a variable,  and  may  end 
only  with  a right  parenthesis  or  a variable. 


km 
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2. 4. 8. 3. 3 Arithmetic  Expressions.  (Cont.) 

There  must  be  a one-to-one  correspondence  between  left 
and  right  parentheses  of  an  arithmetic  expression. 

• RELATION  CONDITION. 

COMPARISON  OF  OPERANDS  OF  EQUAL  SIZE. 

Characters  in  corresponding  character  positions  of  the 
two  operands  are  compared  from  the  high-order  end 
through  the  low-order  end.  The  high-order  end  is  the 
leftmost  position;  the  low-order  end  is  the  rightmost 
character  position. 

If  all  pairs  of  characters  compare  equally  through  the 
last  pair,  the  operands  are  considered  equal  when  the 
low-order  end  is  reached. 

If  a pair  of  unequal  characters  is  encountered,  the 
two  characters  are  compared  to  determine  their  relative 
position  in  the  collating  sequence.  The  operand  that 
contains  the  character  higher  in  the  collating  sequence 
is  considered  to  be  the  greater  operand. 

COMPARISON  OF  OPERANDS  OF  UNEQUAL  SIZE. 

If  the  operands  are  of  unequal  size,  comparison  pro- 
ceeds as  though  the  shorter  operand  were  extended  on 
the  right  by  a sufficient  number  of  spaces  to  make  the 
operands  of  equal  size  in  the  case  of  alphabetic  or 
alphanumeric  items.  For  numeric  operands  of  unequal 
size,  comparison  proceeds  after  extending  the  shorter 
operand  on  the  left  with  a sufficient  number  of  zeroes 
to  make  the  operands  of  equal  size. 

COMPARISONS  INVOLVING  INDEX-NAMES  AND/OR  INDEX  DATA  ITEMS. 


The  comparison  of  two  index-names  is  equivalent  to  the 
comparison  of  their  corresponding  occurrence  numbers. 

In  the  comparison  of  an  index  data  item  with  an  index- 
name  or  with  another  index  data  item,  the  actual  values 
are  compared  without  conversion. 
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2. 4. 8. 3. 3 Arithmetic  Expressions.  (Cont.) 

The  comparison  of  an  index-name  with  a numeric  item 
is  permitted  if  the  numeric  item  is  an  integer.  The 
numeric  integer  is  treated  as  an  occurrence  number. 

All  other  comparisons  involving  an  index-name  or  index 
data  item  are  not  allowed.  (For  a discussion  of 
indexing,  see  "Table  Handling".)  Refer  to  FIGURE 
2-17  (page  2-156)  for  Permissible  Comparisons. 

2. 4. 8. 3. 4 Arithmetic  Operators.  The  arithmetic  statements 
are  used  for  computations.  Individual  operations  are  specified 
by  the  ADD,  SUBTRACT,  MULTIPLY  and  DIVIDE  statements.  Although 
the  arithmetic  statements  are  individual  operators,  they  do  have 
several  common  features. 

1.  The  data  descriptions  of  the  operands  need  not  be  the 
same.  Any  necessary  conversion  and  decimal  point  align- 
ment is  supplied  throughout  the  calculation. 

2.  The  maximum  size  of  each  operand  is  eighteen  (18)  decimal 
digits.  See  VENDORS'  GUIDELINES  for  extension  to  ANS. 

Also  there  are  several  options  that  are  common  to  the  arith- 
metic statement  and  appear  frequently.  A discussion  of  these 
options  follows. 

In  the  discussion  that  follows,  a 'resultant-identifier'  is 
that  identifier  associated  with  a result  of  an  arithmetic 
operation. 

• GIVING  OPTION.  If  the  GIVING  option  is  specified,  the 
value  of  the  identifier  that  follows  the  word  GIVING  is  set 
equal  to  the  calculated  result  of  the  arithmetic  operation. 

This  identifier,  since  not  itself  involved  in  the  computation, 
may  be  a numeric-edited  item. 

• ROUNDED  OPTION.  If,  after  decimal  point  alignment,  the 
number  of  places  in  the  fraction  of  the  result  of  an  arithmetic 
operation  is  greater  than  the  number  of  places  provided  for  the 
resultant-identifier,  truncation  will  occur,  and  it  will  be 
relative  to  the  size  provided  for  the  resultant-identifier. 
However,  if  ROUNDED  is  specified,  the  absolute  value  of  the 
resultant-identifier  is  increased  by  one  (1)  whenever  the  most 
significant  digit  of  the  excess  is  greater  than  or  equal  to 
five  (5). 
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2.4.8. 3.4  Arithmetic  Operators.  (Cont.) 

When  the  low-order  integer  positions  in  a resultant- 
identifier  are  represented  by  the  character  'P'  (the  assumed 
decimal  scaling  position)  in  the  PICTURE  for  that  resultant- 
identifier,  rounding  or  truncation  occurs  relative  to  the 
rightmost  integer  position  for  which  storage  is  allocated. 

• SIZE  ERROR  OPTION.  If,  after  decimal  point  alignment, 
the  absolute  value  of  a result  exceeds  the  largest  value  that 
can  be  contained  in  the  associated  result-nt-identif ier,  a size 
error  condition  exists.  The  algebraic  value  of  the  final 
result  of  the  arithmetic  operation  must  be  accurate  to  the 
precision  specified  by  the  resultant-identifier.  The  SIZE 
ERROR  applies  only  to  the  final  results  of  an  arithmetic  oper- 
ation and  does  not  apply  to  the  intermediate  results,  except  in 
MULTIPLY  and  DIVIDE  statements  in  which  case  SIZE  ERROR  applies 
to  intermediate  results  as  well.  (See  VENDORS'  GUIDELINES.) 

If  the  ROUNDED  option  is  specified,  rounding  takes  place  before 
checking  for  size  error.  If  a size  error  condition  occurs,  the 
subsequent  action  is  a function  of  whether  or  not  the  SIZE 
ERROR  option  was  specified. 

1.  Division  by  zero  always  causes  a size  error 
condition. 

2.  If  the  SIZE  ERROR  option  is  not  specified  and  a 
size  error  condition  occurs,  the  value  of  the 
resultant-identifier  affected  may  be  unpredictable. 

3.  If  the  SIZE  ERROR  optio..  is  specified  and  a size 
error  condition  occurs  then  the  value  of  the 
resultant-identifier  affected  by  the  size  error  is 
not  altered.  After  completion  of  the  execution  of 
the  arithmetic  operation,  the  imperative  statement 
in  the  SIZE  ERROR  option  is  executed. 

VENDORS'  GUIDELINES. 

• IBM.  IBM  does  not  allow  ANS  specifications.  The  SIZE 
ERROR  option  never  applies  to  Intermediate  results. 
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2. A. 8. 3. 4 Arithmetic  Operators.  (Cont.) 

• FORMATION  AND  EVALUATION  RULES. 

Parentheses  may  be  used  in  arithmetic  expressions  to 
specify  the  order  in  which  elements  are  to  be  evaluated. 
Expressions  within  parentheses  are  evaluated  first,  and  within 
nested  parentheses,  evaluation  proceeds  from  the  least  inclusive 
set  to  the  most  inclusive  set.  When  parentheses  are  not  used, 
or  parenthesized  expressions  are  not  used,  or  parenthesized 
expressions  are  at  the  same  level  of  inclusiveness,  the  follow- 
ing hierarchical  order  of  execution  is  implied: 

1st  - Unary  Plus  and  Minus. 

2nd  - Exponentiation. 

3rd  - Multiplication  and  Division. 

Ath  - Addition  and  Subtraction. 

An  arithmetic  expression  may  only  begin  with  the  symbol 
'(',  '+' , or  a variable  and  may  only  end  with  ')'  or  a 

variable.  There  must  be  a one-to-one  correspondence  between 
left  and  right  parentheses  of  an  arithmetic  expression  such  that 
each  left  parenthesis  is  to  the  left  of  its  corresponding  right 
parenthesis . 

2. A. 8. 3. 5 Conditional  Expressions.  CONDITIONAL  EXPRESSIONS 
enables  the  object  program  to  select  between  alternate  paths  of 
control  depending  upon  the  truth  value  of  the  condition.  Con- 
ditional expressions  are  specified  in  the  IF,  PERFORM  and  SEARCH 
statements.  There  are  two  categories  of  conditions  associated 
with  conditional  expressions:  Simple  and  Complex  Conditions. 

2. A. 8. 3. 6 Simple  Conditions.  The  SIMPLE  CONDITIONS  are: 

1.  Relation  Condition. 

2.  Class  Condition. 

3.  Condition-name  Condition. 

A.  Sign  Condition. 
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2. 4. 8. 3. 6 Simple  Conditions.  (Cont.) 

A simple  condition  has  a truth  value  of  'true'  or  'false'. 

The  inclusion  in  parentheses  of  simple  conditions  does  not 
change  the  simple  condition  truth  value. 

• RELATION  CONDITIONS.  A relation  condition  causes  a 
comparison  of  two  operands,  either  of  which  may  be  an  identifier, 
a literal  or  an  arithmetic  expression. 

The  format  for  a relation  condition  is  as  follows: 


1.  The  first  operand  is  called  the  subject  of  the 
condition,  the  second  operand  is  called  the  object 
of  the  condition. 

2.  The  subject  and  object  may  not  both  be  literals. 

3.  The  subject  and  object  must  have  the  same  USAGE, 
except  when  two  numeric  operands  are  compared. 

4.  A relation-operator,  (IS  NOT  GREATER  THAN,  IS 

NOT  LESS  THAN,  IS  NOT  EQUAL  TO)  specifies  the  type 
of  comparison  to  be  made. 

5.  A space  must  precede  and  follow  each  reserved  word 
comprising  the  relational  operator. 

• COMPARISON  OF  NUMERIC  OPERANDS. 

1.  For  those  operands  whose  class  is  numeric,  a 
comparison  is  made  with  respect  to  the  algebraic 
value  of  the  operands. 

2.  The  length  of  the  literal  or  arithmetic  expression 
is  not  significant. 


2. 4. 8. 3. 6 Simple  Conditions.  (Cont.) 

3.  Zero  is  considered  a unique  value  regardless  of  the 
sign. 

4.  Unsigned  numeric  operands  are  considered  positive 
for  purposes  of  comparison. 

• COMPARISON  OF  NON-NUMERIC  OPERANDS. 

1.  For  nonnumeric  operands,  or  one  numeric  and  one  non- 
numeric operand,  a comparison  is  made  with  respect 
to  a specified  collating  sequence  of  characters. 

For  EBCDIC  collating  sequence,  reference  COLLATING 
SEQUENCE  in  Glossary. 

2.  If  one  of  the  operands  is  described  as  numeric,  it 
is  treated  as  though  it  were  moved  to  an  alpha- 
numeric data  item  of  the  same  size  as  the  numeric 
data  item,  and  contents  of  this  alphanumeric  data 
item  were  then  compared  to  the  nonnumeric  operand. 
(See  MOVE  statement.) 

3.  The  size  of  an  operand  is  the  total  number  of 
characters  in  the  operand. 

4.  Numeric  and  nonnumeric  operands  may  only  oe  com- 
pared when  their  USAGE  is  the  same,  implicity  or 
explicity . 

There  are  two  cases  of  nonnumeric  operands  to  consider: 
operands  of  equal  size,  and  operands  of  unequal  size. 

• COMPARISON  OF  OPERANDS  OF  EQUAL  SIZE. 

Comparison  proceeds  by  comparing  characters  in  corres- 
ponding character  positions  starting  from  the  high-order  end 
(leftmost  position)  and  continuing  until  either  a pair  of 
unequal  characters  is  encountered,  or  the  low-order  end  (right- 
most character  position)  is  reached,  whichever  comes  first.  If 
all  pairs  of  characters  compare  equally  through  the  last  pair, 
the  operands  are  considered  equal  when  the  low-order  end  is 
reached. 
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2. 4. 8. 3. 6 Simple  Conditions.  (Cont.) 

The  first  encounter  pair  of  unequal  characters  is  com- 
pared to  determine  their  relative  position  in  the  collating 
sequence.  The  operand  that  contains  the  character  that  is  posi- 
tioned higher  in  the  collating  sequence  is  considered  to  be  the 
greater  operand. 

• OPERANDS  OF  UNEQUAL  SIZE.  If  the  operands  are  of 
unequal  size,  comparison  proceeds  as  though  the  shorter  operand 
were  extended  on  the  right  by  a sufficient  number  of  spaces  to 
make  the  operands  of  equal  size. 

• COMPARISONS  INVOLVING  INDEX-NAMES  AND/OR  INDEX  DATA  ITEMS. 
Relation  tests  may  be  made  between: 

1.  Two  index-names:  The  result  is  the  same  as  if  the 
corresponding  occurrence  numbers  were  compared. 

2.  An  index  data  item  and  an  index-name  or  another  index 
data  item:  The  actual  values  are  compared  without 
conversion. 

3.  An  index-name  and  an  integer  numeric  item:  The 
occurrence  number  that  corresponds  to  the  value  of 
the  index-name  is  compared  to  the  integer  numeric 
item. 

4.  The  results  of  the  comparison  of  an  index  data  item 
with  any  data  item  not  specified  above  is  undefined, 
and  therefore  not  allowed. 

• CLASS  CONDITIONS.  The  class  condition  determines 
whether  the  operand  is  numeric;  that  is,  consists  entirely  of 
the  characters  ’0',  '1',  '2',  ...,  '9',  with  or  without  opera- 
tional signs,  or  alphabetic;  that  is,  consist  entirely  of  the 
characters  'A',  'B',  'C*,  ...,  'Z',  space. 

The  general  format  for  the  class  condition  is: 


identifier  IS 


[not] 


NUMERIC 


ALPHABETIC 
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2. 4. 8. 3. 6 Simple  Conditions.  (Cont.) 


The  operand  being  tested  must  be  described  Implicitly 
or  explicitly,  USAGE  DISPLAY.  (See  VENDORS'  GUIDELINES.) 


The  Identifier  being  tested  is  determined  to  be  numeric 
only  if  the  contents  consist  of  any  combination  of  the  digits  0 
through  9.  If  the  PICTURE  of  the  identifier  being  tested  does 
not  contain  an  operational  sign,  the  identifier  being  tested  is 
determined  to  be  numeric  only  if  the  contents  are  numeric  and 
an  operational  sign  is  not  present.  If  the  PICTURE  does  contain 
an  operational  sign,  the  identifier  being  tested  is  determined 
to  be  numeric  only  if  the  contents  are  numeric  and  a valid  oper- 
ational sign  is  present. 


The  NUMERIC  test  cannot  be  used  with  an  identifier 
described  as  alphabetic.  For  example,  refer  to  FIGURE  2-18 


FIGURE  2-18 


PICTURE 

VALUE 

REPRESENTATION 

TESTS  NUMERIC 

IBM 

IBM 

S999 

EH 

FI  F2  C3 

Yes 

S999 

Ena 

FI  F2  D3 

Yes 

S999 

123 

FI  F2  F3 

Yes 

999 

+ 123 

FI  F2  C3 

No 

999 

-123 

FI  F2  D3 

No 

999 

123 

FI  F2  F3 

Yes 
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2. A. 8. 3. 6 Simple  Conditions.  (Cont.) 

The  identifier  being  tested  is  determined  to  be  alpha- 
betic only  if  the  contents  consist  of  any  combination  of  the 
alphabetic  characters  'A'  through  'Z'  and  the  space. 

The  ALPHABETIC  test  cannot  be  used  with  an  identifier 
described  as  numeric. 

VENDORS’  GUIDELINES. 

• IBM. 

1.  The  operand  being  tested  can  be  described  as  USAGE 
COMP- 3. 

2.  Valid  operational  signs  are  hexadecimal  F,  C,  and  D. 

3.  For  numeric  data  items  described  with  the  SEPARATE 
SIGN  clause,  valid  operational  signs  are  hexa- 
decimal AE  and  60. 

• CONDITION-NAME  CONDITION  (CONDITIONAL  VARIABLE) . In  a 
condition-name  condition,  a conditional  variable  ic  tested  to 
determine  whether  or  not  its  value  is  equal  to  one  of  the  values 
associated  with  the  condition-name. 

The  general  format  for  the  condition-name  is: 


88  condition-name 


An  example  of  the  condition- name  condition  is: 


05  PAY-STATUS  PIC  X. 

88  CS-12  VALUE  '1'. 

88  GS-13  VALUE  *2'. 

88  GS-1A  VALUE  '3'. 


Q 

r 
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2. 4. 8. 3. 6 Simple  Conditions.  (Cont.) 

PAY-STATUS  is  the  conditional  variable;  C.S-12,  GS-13  and 
GS-14  are  condition-names.  Only  one  of  the  conditions  specified 
by  condition-name  can  be  present  for  individual  records  in  the 
file.  In  order  to  determine  the  pay  status  of  the  individual 
whose  record  is  being  processed,  IF  GS-12  ...  can  be  coded,  and 
its  true  or  false  evaluation  determines  the  subsequent  path  the 
object  program  takes. 

If  the  condition-name  is  associated  with  a range  or 
ranges  of  values,  then  the  conditional  variable  is  tested  to 
determine  whether  or  not  its  value  falls  in  this  range,  including 
the  end  value.  The  result  of  the  test  is  true  if  one  of  the 
values  corresponding  to  the  condition-name  equals  the  value  of 
its  associated  conditional  variable. 

A condition-name  is  used  in  conditions  as  an  abbreviation 
for  the  relation  condition.  This  can  be  done  since  the  asso- 
ciated condition-name  is  equal  to  only  one  of  the  values  (or 
ranges  of  values)  assigned  to  that  conditional  variable  hence, 

IF  PAY-STATUS  EQUALS  1...  would  have  the  same  effect  as  using  the 
condition-name  test  IF  GS-12... 

• SIGN  CONDITION. 

The  sign  condition  determines  whether  or  not  the  alge- 
braic value  of  an  arithmetic  expression  (i.e.,  an  item  defined 
as  numeric)  is  less  than,  greater  than,  or  equal  to  zero. 

The  general  format  for  a sign  condition  is: 


When  used,  NOT  and  the  next  key  word  specify  one  sign 
condition  that  defines  the  algebraic  test  to  be  executed  for 
truth  value,  e.g.,  'NOT  ZERO'  is  a truth  test  for  a nonzero 
(positive  or  negative)  value. 
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2. 4. 8. 3. 6 Simple  Conditions.  (Cont.) 

An  operand  is  positive  if  its  value  is  greater  than 
zero,  negative  if  its  value  is  less  than  zero,  and  zero  if  its 
value  is  equal  to  zero.  An  unsigned  field  is  always  positive 
or  zero. 

2. 4. 8. 3. 7 Compound  (Complex)  Conditions.  Two  or  more  simple 
conditions  can  be  combined  to  form  a COMPOUND  (COMPLEX) 
CONDITION.  Each  simple  condition  is  separated  by  one  of  the 
logical  operators  (’AND'  and  'OR')  or  negating  these  conditions 
with  logical  negation  (NOT) . 

• The  logical  operators  and  their  meanings  are  shown  on 
FIGURE  2-19. 


Logical  Operator 

Meaning 

AND 

Logical  conjunction:  The  truth  value  is 
'true'  if  both  of  the  conjoined  conditions 
are  true;  'false'  if  one  or  both  of  the 
conjoined  conditions  are  false. 

OR 

Logical  inclusive:  The  truth  value  is 
true'  if  one  or  both  of  the  included 
conditions  are  true;  'false'  if  both 
included  conditions  are  false.  1 

EXOR 

Logical  exclusive:  The  trutli  value  is 
true,  if  only  one  condition  is  true. 

(Not  IBM.) 

NOT 

Logical  negation  or  reversal  of  truth 
value:  The  truth  value  is  'true'  if 

the  condition  is  false;  'false'  if 
the  condition  is  true. 

FIGURE  2-19 
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2. 4. 8. 3. 7 Compound  (Complex)  Conditions.  (Cont.) 

Logical  operations  must  be  preceeded  by  a space  and 
followed  by  a space. 

The  following  table  on  FIGURE  2-20  shows  the  relation- 
ships between  the  logical  operators  and  simple  conditions  'A' 
and  'B' . 


L 

b 


\ 

I 


I 


SIMPLE 

^■vCONDITION 

LOGICAL 

OPERATION 

IF  AND 

A B 

IS  IS 

True  True 

IF  AND 

A B 

IS  IS 

False  True 

IF  AND 

A B 

IS  IS 

True  False 

IF  AND 

A B 

IS  IS 

False  False 

THEN 

A AND  B 

True 

False 

False 

False 

A OR  B 

True 

True 

True 

False 

j NOT  (A  AND  B) 

W 

False 

True 

True 

True 

NOT  A AND  B 

I 

L 

False 

True 

True 

True 

NOT  (A  OR  B) 

L 

B 

False 

False 

False 

True 

NOT  A OR  B 

E 

True 

True 

False 

True 

A AND  NOT  B 

False 

False 

True 

False  S 

A OR  NOT  B 

True 

False 

True 

True 

FIGURE  2-20 


• EVALUATION  HIERARCHY. 

Logical  evaluation  begins  with  the  least  inclusive  pair 
of  parentheses  and  proceeds  to  the  most  inclusive. 

o 

o 
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If  the  order  of  evaluation  Is  not  specified  by  paren- 
thesis. then  the  order  Is: 


1.  Arithmetic  expressions 


2.  Relational  operators 


3.  NOT  condition 


4.  AND  and  Its  surrounding  conditions,  starting  at  the 
left  and  proceeding  to  the  right. 


5.  OR  and  Its  surrounding  conditions,  proceeding  from 
left  to  right. 


• COMPOUND  CONDITION  STRUCTURE.  Parentheses  will  always 
be  used  to  specify  the  order  In  which  compound  conditions  are  to 
be  evaluated.  When  a single  relation  test  (e.g.,  A - B below) 
can  determine  the  truth  or  falsity  of  a compound-condition,  that 
relation  should  be  written  first. 


IF  A EQUALS  B OR  C EQUALS  D AND  E EQUALS  F 


will  be  written  In  the  following  format 


This  expression  will  be  evaluated  In  the  following 
manner.  Refer  to  FIGURE  2-21. 


CSCM  18-1-1 


2. 4. 8. 3. 7 Compound  (Complex)  Conditions.  (Cont.) 


within  the  least  inclusive  parentheses  (C  EQUALS  D) 
AND  (E  EQUALS  F)  the  relational-operator  EQUALS  will 
be  evaluated. 


Second 


The  AND  condition  within  that  parenthetical  express 
ion  will  be  evaluated. 


The  relational-operator  EQUALS  of  (A  EQUALS  B)  will 
be  evaluated. 


Third 


Fourth 


The  OR  function  for  the  compound  condition  will  be 
resolved. 


IF  (A  EQUALS  B)  OR  ((C  EQUALS  D)  AND  (E  EQUALS  F)) 


First 


Second 


Third 


Fourth 


where  E equals  evaluation 


T equals  total 


FIGURE  2-21 
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2. 4. 8. 3. 7 Compound  (Complex)  Conditions.  (Cont.) 

• CSC  CUIDELINES.  Compound  condltl  ns  must  be  used  with 
caution  due  to  the  difficulty  inherent  in  modification  and 
maintenance  of  such  structures. 
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2.4.9  STATEMENTS. 

2.4.9. 1 ACCEPT  STATEMENT. 

FUNCTION . The  purpose /function  of  the  ACCEPT  statement  is 
to  obtain  low  volume  data  vid  a system  input  device. 

FORMAT. 


ACCEPT  identifier 

FROM  mnemonic-name  1 

J 

SYNTAX  RULES. 

• Identifier  may  be  either  a fixed-length  group  item  or 
an  elementary  alphabetic,  alphanumeric,  or  external  decimal 
item.  Identifier  may  not  be  any  Special  Register  except  TALLY. 
The  data  is  read  and  the  appropriate  number  of  characters  is 
moved  into  the  area  reserved  for  identifier.  No  editing  or 
error  checking  of  the  incoming  data  is  done. 

• If  the  input/output  device  specified  by  an  ACCEPT  state- 
ment is  the  same  one  designated  for  a READ  statement,  the 
results  may  be  unpredictable. 

GENERAL  RULES.  None. 

VENDORS'  GUIDELINES. 

• IBM. 

When  an  ACCEPT  statement  with  the  FROM  CONSOLE  option  is 
executed,  the  following  actions  are  taken: 

1.  A system  generated  message  code  is  automatically 
displayed  followed  by  the  literal  "AWAITING  REPLY". 
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2.4.9. 1 ACCEPT  STATEMENT.  (Cont.) 

sage  is  Identified  by  the  control  program,  execution  of  the 
ACCEPT  statement  is  resumed  and  the  message  is  moved  to  the 
specified  identifier  and  left  justified  regardless  of  the 
PICTURE.  If  the  field  is  not  filled  the  low-order  positions  may 
contain  invalid  data. 

CSC  GUIDELINES. 

• The  use  of  the  FROM  option  with  any  other  mnemonic-name 
than  CONSOLE  is  not  permitted.  Use  of  the  FROM  CONSOLE  is  not 
permitted  unless  there  is  absolutely  no  other  way  to  get  the 
required  information  into  the  machine  and  that  information  is  of 
such  a nature  that  it  can  only  be  obtained  from  the  operator  in 
a realtime  mode.  Use  of  the  FROM  CONSOLE  option  must  be  justi- 
fied on  a case-by-case  basis. 

• The  execution  of  the  ACCEPT  verb,  in  conjunction  with 
the  FROM  option,  is  extremely  inefficient,  causes  frequent  error 
conditions  due  to  erroneous  replies  and  programers  are  therefore 
advised  to  utilize  other  methods  in  obtaining  required  data. 


i 


• Programers  may  utilize  the  ACCEPT  verb,  without  the  FROM 
option,  to  obtain  data  via  the  system  logical  input  device. 

I 3 

• Another  technique  is  to  obtain  the  data  via  a READ 


- 
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2. A. 9. 2 ADD  STATEMENT. 

FUNCTION.  The  ADD  statement  causes  two  or  more  numeric 
operands  to  be  summed  and  the  result  to  be  stored. 

FORMAT. 

Format  1. 


1 

f identifier-1] 

identif ier-2 

r 1 

ADD  J 

1 1 

> 

...  TO  identif ier-m  ROUNDED | 

literal-1  \ 

literal-2 

J 

L J 

“1  — 

identifier-n 

1 ROUNDED- 1|  • • • ON  SIZE  ERROR  imperative-  | 

L 

J L 

statement  j 

Format  2. 
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2. A. 9. 2 ADD  STATEMENT.  (Cont.) 
SYNTAX  RULES. 


• Each  identifier  mast  refer  to  an  elementary  numeric  item 
except  the  object  of  the  GIVING  option  (identif ier-m)  which  may 
be  a numeric  edited  data  item. 

• Each  literal  must  be  a numeric  literal. 

• The  maximum  size  of  each  operand  is  18  digits.  The  maxi- 
mum size  of  the  resultant  sum,  after  decimal  alignment,  is  18 
digits.  (See  VENDORS'  GUIDELINES  for  extension  to  ANS.) 

GENERAL  RULES. 

• In  Format  1,  the  values  of  the  operands  preceding  the 
word  TO  are  added  together,  then  the  sum  is  added  to  the  current 
value  of  each  identifier  following  the  word  TO  ( identif ier-m, 
etc.).  The  result  is  stored  in  each  resultant-identifier 
(identif ier-m  etc.). 

• In  Format  2,  the  values  of  the  operands  preceding  the 
word  GIVING  are  added  together,  then  the  sum  is  stored  the 
new  value  of  the  object  of  the  GIVING  option,  identif ier-m. 

• The  compiler  insures  that  enough  places  are  carried  so 
as  not  to  lose  any  significant  digits  during  execution. 

• The  CIVING,  ROUNDED  and  SIZE  ERROR  options  are  explained 
in  Arithmetic  Options. 

VENDORS'  GUIDELINES. 

• IBM. 

Only  one  identifier  following  the  GIVING  option  in 
Format  2 is  allowed. 

CSC  GUIDELINES. 


• For  efficient  execution,  and  ease  of  maintenance,  ADD 
statements  should  be  as  simple  as  possible.  Consequently : 
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2. 4. 9. 2 ADD  STATEMENT.  (Cont.) 

Do  not  use  ON  SIZE  ERROR  unnecessarily.  This  option 
increases  execution  time  and  takes  more  space  whether  a size 
error  exists  or  not. 

Do  not  use  ROUNDED  unnecessarily,  for  the  same  reason 
as  above.  ADD  5 and  then  MOVE  to  drop  insignificant  digits  is 
more  efficient. 

Avoid  using  more  than  3 addends  in  a single  ADD 
statement. 

• In  regard  to  the  data  items  specified  as  operands  in 
arithmetic  statements: 

When  they  are  all  defined  with  the  same  USAGE,  the 
relatively  expensive  operation  of  conversion  is  avoided.  This 
does  not  apply  to  display  items  in  the  IBM-360/ 370.  In  these 
computers  display  items  must  be  converted  to  packed  decimal 
before  they  can  be  used  arithmetically. 

When,  for  ADD  and  SUBTRACT,  they  are  all  defined  with 
the  same  number  of  decimal  places,  the  relatively  expensive 
operation  of  scaling  is  avoided. 

When  the  data  items  are  defined  small  enough  so  that 
the  operation  does  not  produce  a calculated  result  greater  than 
15  digits  the  expensive  operation  of  double  precision  arithmetic 
is  avoided. 

• In  regard  to  a result  item  specified  in  the  GIVING 
clause : 


When  it  is  defined  with  sufficient  integer  places  to 
provide  for  the  maximum  integer  value  possible,  the  need  for  the 
ON  SIZE  ERROR  clause  is  eliminated. 

When  it  is  defined  with  the  same  number  of  decimal 
places  as  the  calculated  result,  the  relatively  expensive  opera- 
tion of  truncation,  rounding,  or  scaling  (whichever  applies  in 
the  particular  case)  is  avoided. 
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2. 4. 9. 2 ADD  STATEMENT.  (Cont.) 

When  It  Is  defined  with  the  same  USAGE  as  the  calculated 
result,  a conversion  operation  is  avoided. 

When  it  is  defined  as  signed,  the  operation  of  removing 
the  sign  (which  is  generated  automatically  by  the  hardware)  is 
avoided. 


When  a packed  decimal  result  item  is  defined  with  an  odd 
number  of  digits,  the  operation  of  setting  the  items  high  order 
digit  to  zero  is  avoided.  (When  a packed  decimal  item  is 
defined  with  an  even  number  of  digits,  an  idiosyncrasy  of  the 
hardware  causes  the  storage  assigned  to  the  item  to  include  one 
more  digit  position  than  the  number  of  digits  defined.  The  com- 
piler assumes  the  responsibility  of  making  sure  that  the  extra  0 
digit  position  contains  a zero  whenever  data  is  placed  in  the 
item. ) 
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2. 4. 9. 3 ALTER  STATEMENT  (NOT  CSC  COBOL). 

FUNCTION . The  ALTER  statement  is  used  to  change  the  trans- 
fer point  in  a GO  TO  statement. 

CSC  GUIDELINES.  The  complexity  in  program  logic  that  the 
ALTER  statement  creates  precludes  its  use  due  to  maintenance 
consideration.  As  an  alternative  to  using  ALTER  as  a switching 
mechanism,  a data  item  can  be  set  and  tested:  Use  a MOVE  state- 
ment to  change  the  value  of  a data  item. 
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2. 4. 9. 4 CALL  STATEMENT  (IBM  EXTENSION). 

FUNCTION.  The  CALL  statement  causes  control  to  be  trans- 
ferred from  one  object  program  to  another,  within  the  run  unit. 
This  statement  provides  the  communication  link  between  a main 
object  program  and  one  or  more  subprograms. 

FORMAT. 


CALL  literal-1  jj 


USING  identifier-1  ^identifier- 2 


]•••] 


SYNTAX  RULES. 

• Literal-1  must  be  a nonnumeric  literal. 

• The  USING  option  is  included  in  the  CALL  statement  (in 
the  calling  program)  only  if  there  is  a USING  phrase  in  the 
PROCEDURE  DIVISION  header  of  the  called  program.  The  order  of 
the  operands  in  each  USING  clause  must  be  identical. 

• Each  of  the  operands  in  the  USING  clause  must  have  been 
defined  as  a data  item  in  the  FILE  SECTION,  WORKING-STORAGE 
SECTION,  or  LINKAGE  SECTION  and  must  have  a level-number  of  01 
or  77. 

GENERAL  RULES. 

e The  program  whose  name  is  specified  by  the  value  of 
literal-1  is  the  called  program;  the  program  in  which  the  CALL 
statement  appears  is  the  calling  program. 

• The  execution  of  a CALL  statement  causes  control  to  pass 
from  the  calling  program  to  the  called  program. 

s A called  program  is  in  its  initial  state  the  first  time 
it  is  called  with  a run  unit.  On  all  successive  entries  into 
the  called  program,  the  state  of  the  program  remains  unchanged 
from  its  state  when  last  existed. 
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2. 4. 9. 4 CALL  STATEMENT  (IBM  EXTENSION).  (Cont.) 

• Unchanged  will  be  data  fields,  file  status,  file  posi- 
tioning, and  all  alterable  switches. 

• It  is  the  programers  responsibility  to  reinitialize  such 
things  as: 


TALLY 

data  items 
PERFORM  statements 
EXHIBIT  CHANCED  statements 
EXHIBIT  CHANCED  NAMED  statements 
ON  statements 


• Called  programs  may  contain  CALL  statements.  However,  a 
called  program  must  not  contain  a CALL  statement  that  directly  oi 
indirectly  calls  the  calling  program. 

• The  identifiers  specified  by  the  USING  option  of  the  CALL 
statement  indicate  those  data  items  available  to  a calling  pro- 
gram that  may  be  referred  to  in  the  called  program. 

The  order  of  appearance  of  the  identifiers  in  the  USING 
option  of  the  CALL  statement  and  the  USING  option  in  the 
PROCEDURE  DIVISION  header  is  critical.  The  data  items  in  the 
USING  options  are  paired  on  a one-to-one  relationship. 

Corresponding  identifiers  refer  to  a single  set  of  data 
which  is  available  and  is  defined  in  both  the  called  and  calling 
program.  These  data  items  correspond  by  position  not  by  name. 
Their  data  descriptions  must  be  equivalent. 

In  the  case  of  index-names,  no  correspondence  is  estab- 
lished. Index-names  in  the  called  and  calling  program  always 
refer  to  separate  Indices. 
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2. A. 9. 4 CALL  STATEMENT  (IBM  EXTENSION).  (Cont.) 

VENDORS'  GUIDELINES.  None. 

CSC  GUIDELINES.  Refer  to  CSC  COBOL  programing  techniques, 
"Transfer  of  Control"  for  further  guidance. 
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2. 4. 9. 5 CANCEL  STATEMENT. 

FUNCTION.  To  release  memory  areas  occupied  by  the  named 
program. 

FORMAT. 


SYNTAX  RULES. 

• Literal-1,  Literal-2,  ...literal-n  must  each  be  a non- 
numeric literal  whose  value  is  a program-name. 

• Identifier-1,  identifier-2,  . . .identif ier-n  must  each 
have  a value  that  is  a program-name. 

GENERAL  RULES. 

• After  the  execution  of  a CANCEL  statement,  the  CANCELed 
subprogram  ceases  to  have  a logical  relationship  to  the  run 
unit  in  which  the  CANCEL  statement  appears.  When  a subsequent 
CALL  statement  is  executed  naming  the  same  program,  that  program 
begins  execution  in  its  initial  state. 

• A program  cannot  be  cancelled  which  has  been  called  but 
has  not  executed  an  EXIT  PROGRAM  statement. 

• A logical  relationship  to  a cancelled  subprogram  is 
reestablished  only  by  executing  a subsequent  CALL. 

• Control  passes  to  the  next  statement  when  the  program 
named  in  a CANCEL  statement  has  not  been  called  in  this  run  unit 
or  has  already  been  CANCELed. 


( 
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2. 4. 9. 5 CANCEL  STATEMENT . (Cont.) 

• If  a CALLed  program  has  not  been  CANCELed  by  a CANCEL 
statement,  it  is  automatically  CANCELed  by  the  termination  of 
the  run  unit  of  which  it  is  a member. 

• Memory  areas  associated  with  CANCELed  subprograms  are 
released  for  disposition  by  the  operating  system. 

VENDORS'  GUIDELINES.  Not  implemented  in  IBM  DOS  compiler 
and  some  levels  of  IBM  OS  compilers. 

CSC  GUIDELINES.  None. 
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CLOSE  STATEMENT. 


FUNCTION.  The  CLOSE  statement  terminates  the  processing  of 
input-output  reels,  units,  and  files.  Optional  rewind  and/or 
lock  are  also  applied. 


FORMAT. 


SYNTAX  RULES. 

• File-name  must  not  be  the  name  of  a sort  or  merge  file. 

• The  REEL  or  UNIT  option  may  only  be  used  for  sequential 
files. 

GENERAL  RULES. 

• Except  where  otherwise  stated  in  the  General  Rules,  the 
terms  'reel',  'unit',  and  'volume'  are  synonymous  and  inter- 
changeable in  the  CLOSE  statement.  Treatment  of  sequential  mass 
storage  files  is  logically  equivalent  to  the  treatment  of  a file 
on  tape  or  analogous  sequential  media. 

• A CLOSE  statement  may  only  be  executed  for  a file  in  an 
open  mode. 


o 
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2. 4. 9. 6 CLOSE  STATEMENT.  (Cont.) 


• For  the  purpose  of  showing  the  effect  of  various  types 
of  CLOSE  statements  as  applied  to  various  storage  media,  all 
files  are  divided  into  the  following  categories: 


Unit  record.  A file  whose  input  or  output  medium  is 
such  that  rewinding,  units  and  reels  have  no  meaning. 

Sequential  single-volume.  A sequential  file  entirely 
contained  on  one  volume  (one  reel  or  one  unit) . 

Sequential  multi-reel/unit.  A sequential  file  that  is 
contained  on  more  than  one  volume. 
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• The  results  of  executing  each  type  of  CLOSE  for  each 
category  of  file  are  summarized  below  in  FIGURE  2-22. 


Relationship  of  Categories  of  Files  and  the  Formats  of  the  CLOSE 
Statement. 


File  Category 


CLOSF 

Statement 

Format 


Non-Sequential 

Single/Multi- 

Reel/Unit 


Sequential  Sequentail 
Non-  Single-  Multi- 

Reel/Unit  Reel/Unit  Reel/Unit 


CLOSE 


CLOSE  WITH 
LOCK 


e.g.e 
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CLOSE 

File  Category 

Statement 

Sequentall 

Sequential 

Non-Sequential 

Format 

Non- 

Single 

Multi- 

Single/Multi 

Reel/Unit 

Reel/Unit 

Reci/Unit 

Reel/Unit 

CLOSE  WITH  NO 
REWIND 

X 

C,B 

C ,B,A 

X 

CLOSE  REEL/ 
UNIT 

X 

X 

F,G 

X 

CLOSE  REEL/ 
UNIT  FOR 
REMOVAL 

X 

X 

F,D,G 

X 

CLOSE  REEL/ 

UNIT  WITH 

NO  REWIND 



X 

X 

F.B 

X 

FIGURE  2-22  (Cont.) 


* Letters  In  table  refer  to  succeeding  paragraph  letters. 

• Relationship  of  Categories  of  Files  and  the  Formats  of 
the  CLOSE  Statement.  The  definitions  of  the  symbols  in  the 
figure  are  given  below.  Where  the  definition  depends  on  whether 
the  file  is  an  input,  output  or  input-output  file,  alternate 
definitions  are  given;  otherwise,  a definition  applies  to  input, 
output,  and  input-output  files. 

( 


| 
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A.  Previous  Reels/Units  Unaffected. 

Input  Files  and  Input-Output  Files: 

All  reels/units  in  the  file  prior  to  the  current  reel/ 
unit  are  processed  according  to  the  implementor's 
standard  reel/unit  swap  procedure,  except  those  reels/ 
units  controlled  by  a prior  CLOSE  REEL/UNIT  statement. 
If  the  Current  reel/unit  is  not  the  last  file,  the 
reels/units  in  the  file  following  the  current  one  are 
not  processed. 

Output  Files: 

All  reels/units  in  the  file  prior  to  the  current  reel/ 
unit  are  processed  according  to  the  implementor's 
standard  reel/unit  swap  procedure,  except  those  reels/ 
units  controlled  by  a prior  CLOSE  REEL/UNIT  statement. 

B.  No  rewind  of  Current  Reel. 

The  current  reel/unit  is  left  in  its  current  position. 

C.  Close  File. 

Input  Files  and  Input-Output  Files  Sequential  Access 
Modes: 

If  the  file  is  positioned  at  its  end  and  label  records 
are  specified  for  the  file,  the  labels  are  processed 
according  to  the  implementor's  standard  label  conven- 
tion. The  behavior  of  the  CLOSE  statement  when  label 
records  are  specified  but  not  present,  or  when  label 
records  are  not  specified  but  are  present,  is  unde- 
fined. If  specified  by  the  USE  statement,  a user's 
label  procedure  is  executed.  The  order  of  execution 
of  these  two  processes  is  specified  by  the  USE  state- 
ment. In  addition,  other  closing  operations  specified 
by  the  implementor  are  executed.  If  the  file  is  posi- 
tioned at  Its  end  and  label  records  are  not  specified 
for  the  file,  label  processing  does  not  take  place  but 
other  closing  operations  specified  by  the  Implementor 
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are  executed.  If  the  file  is  positioned  other  than  at 
its  end,  the  closing  operations  specified  by  the 
implementor  are  executed,  but  there  is  no  ending  label 
processing. 

Input  Files  and  Input-Output  Files  (Random  or  Dynamic 
Access  Mode);  Output  Files  (Random,  Dynamic,  or 
Sequential  Access  Mode) : 

If  label  records  are  specified  for  the  file,  the  labels 
are  processed  according  to  the  implementor's  standard 
label  convention.  The  behavior  of  the  CLOSE  statement 
when  label  records  are  specified  but  not  present,  or 
when  label  records  are  not  specified  but  are  present, 
is  undefined.  If  specified  by  the  USE  statement,  a 
user's  label  procedure  is  executed.  The  order  of  exe- 
cution of  these  two  processes  is  specified  by  the  USE 
statement.  In  addition,  other  closing  operations 
specified  by  the  implementor  are  executed.  If  label 
records  are  not  specified  for  the  file,  label  proces- 
sing does  not  take  place  but  other  closing  operations 
specified  by  the  implementor  are  executed. 

D.  Reel/Unit  Removal. 

An  implementor-defined  technique  is  supplied  to  ensure 
that  the  current  reel  or  unit  is  rewound  when  appli- 
cable, and  that  the  operating  system  is  notified  that 
the  reel  or  unit  is  logically  removed  from  this  run 
unit;  however,  the  reel  or  unit  may  be  accessed  again, 
in  its  proper  order  of  reels  or  units  within  the  file, 
if  a CLOSE  statement  without  the  REEL  or  UNIT  phrase 
is  subsequently  executed  for  this  file  followed  by  the 
execution  of  an  OPEN  statement  for  the  file. 

E.  File  Lock. 

An  implementor-defined  technique  is  supplied  to  ensure 
that  this  file  cannot  be  opened  again  during  this 
execution  of  this  run  unit. 


( 
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F.  Close  Reel/Unit. 

Input  Flies: 

The  following  operations  take  place: 

1.  A reel/unit  swap. 

2.  The  standard  beginning  reel/unit  label  procedure 
and  the  user's  beginning  reel/unit  label  procedure 
(if  specified  by  the  USE  statement)  are  executed. 
The  order  of  execution  of  these  two  label  proce- 
dures is  specified  by  the  USE  statement.  The  next 
executed  READ  statement  for  that  file  makes  avail- 
able the  next  data  record  on  the  new  reel/unit. 

Output  Files  and  Input-Output  Files: 

The  following  operations  take  place: 

1.  (For  output  files  only.)  The  standard  ending 
reel/unit  label  procedure  and  the  user's  ending 
reel/unit  label  procedure  (if  specified  by  the  USE 
statement)  are  executed.  The  order  of  execution 
of  these  two  procedures  is  specified  by  the  USE 
statement. 

2.  A reel/unit  swap. 

3.  The  standard  beginning  reel/unit  label  procedure 
and  the  user's  beginning  reel/unit  label  procedure 
(if  specified  by  the  USE  statement)  are  executed. 
The  order  of  execution  of  these  two  procedures  is 
specified  by  the  USE  statement.  For  input-output 
files,  the  next  executed  READ  statement  that 
references  that  file  makes  the  next  logical  data 
record  on  the  next  mass  storage  unit  available. 

For  output  files,  the  next  executed  WRITE  state- 
ment that  references  that  file  directs  the  next 
logical  data  record  to  the  next  reel/unit  of  the 
file. 
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G.  Rewind. 

The  current  reel  or  analogous  device  Is  positioned  at 
its  physical  beginning. 

X.  Illegal. 

This  is  an  illegal  combination  of  a CLOSE  option  and  a 
tile  category.  The  results  at  object  tine  are 
urtdef  lned . 

I j 

rj 

• The  action  taken  if  a file  is  in  the  open  mode  when  a 
STOP  RUN  statement  is  executed  is  specified  by  the  implementor. 

Tlie  action  taken  for  a file  that  has  been  opened  in  a called 
program  and  not  closed  in  that  program  prior  to  the  execution 

k of  a CANCEL  statement  for  that  program  is  also  specified  by  the 

implementor . 

• If  the  OPTIONAL  clause  has  been  specified  for  the  file 
in  the  FILE-CONTROL  paragraph  of  the  Environment  Division  and 
the  file  is  not  present,  the  standard  end-of-file  processing  is 
not  performed  for  that  file. 

• If  a CLOSE  statement  without  the  REEL  or  UNIT  phrase  has 
been  executed  for  a file,  no  other  statement  (except  the  SORT  or 
MERCE  statements  with  the  USING  or  GIVING  phrases)  can  be 
executed . 

• All  reports  associated  with  a report  file  that  have  been 
initiated  must  be  ended  with  the  execution  of  a TERMINATE  state- 
ment before  a CLOSE  statement  is  executed  for  that  report  file. 

i 

• The  WITH  NO  REWIND  and  FOR  REMOVAL  phrases  will  have  no 
effect  at  object  time  if  they  do  not  apply  to  the  storage  media 

on  which  the  file  resides. 

I 

• Following  the  successful  execution  of  a CLOSE  statement, 
without  the  REEL  or  UNIT  phrase,  the  record  area  associated  with 
filename  is  no  longer  available.  The  unsuccessful  execution  of 
such  a CLOSE  statement  leaves  the  availability  of  the  record 
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• Tape  files  should  be  closed  as  soon  as  possible  after 
end  of  file  so  that  rewind  action  can  begin  immediately. 


• Use  of  1-0  areas  defined  in  FD's  after  CLOSE,  before  an 
OPEN  or  in  the  case  of  an  INPUT  file,  after  OPEN  and  before  READ 
are  prohibited  under  DOS  and  under  OS  MVT.  Conversion  problems 
encountered  when  converting  from  DOS  to  OS  precludes  the  use  of 
1-0  areas  in  the  cases  cited. 


2. 4. 9. 6 CLOSE  STATEMENT.  (Cont.) 

VENDORS'  GUIDELINES.  Files  left  open  will  be  automatically 
closed  by  IBM  OS,  except  under  MVT,  a file  must  be  closed 
before  STOP  RUN  or  EXIT  PROGRAM  statement  is  executed.  Failure 
to  do  this  results  in  an  abnormal  termination. 

CSC  GUIDELINES. 

• CLOSE  Statement.  There  are  two  ways  in  which  to  use  the 
CLOSE  statement  when  closing  several  files: 


Each  CLOSE  statement  for  a file  requires  the  use  of  a 
storage  area  that  is  directly  proportional  to  the  number  of 
files  being  closed.  Closing  more  than  one  file  with  the  same 
statement  is  faster  than  when  using  a separate  statement  for 
each  file.  However,  separate  statements  require  less  storage. 


CLOSE  DETAIL-FILE  MASTER-FILE, 
or 

CLOSE  DETAIL-FILE. 

CLOSE  MASTER-FILE. 
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FUNCTION . The  COMPUTE  statement  assigns  to  a data  item  the 
value  of  a data  item,  literal  or  arithmetic  expressions. 

FORMAT. 


COMPUTE  identifier-1 


joN  SIZE 


^RQl'NDEpj: 


identifier-2 

literal-1 

arithmetic-expression 


ERROR  imperative-statement 


SYNTAX  RULES. 

• Llteral-1  must  be  a numeric  literal. 

• Identlf ler-2  must  refer  to  an  elementary  numeric  item. 
Identifier-1  may  describe  a numeric  edited  data  item. 

• The  identif ier-2  and  literal-1  options  provide  a method 
for  setting  the  value  of  identifier-1  equal  to  the  value  of 
identifier-2  or  literal-1. 

• The  arithmetic -express ion  option  permits  the  use  of  a 
meaningful  combination  of  identifiers,  numeric  literals,  and 
arithmetic  operators.  Hence,  the  user  can  combine  arithmetic 
operations  without  the  restrictions  Imposed  by  the  arithmetic 
statements  ADD,  SUBTRACT,  MULTIPLY,  and  DIVIDE. 

• The  assignment  operator  (equal  sign)  must  be  used  in 
the  COMPUTE  statement. 

GENERAL  RULES . Maximum  size  of  each  operand  is  18  bytes. 
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VENDORS'  GUIDELINES.  None. 

CSC  GUIDELINES.  The  use  of  the  COMPUTE  statement  generates 
more  efficient  coding  than  does  the  use  of  individual  arithmetic 
statements  because  the  compiler  can  keep  track  of  internal  work 
areas  and  does  not  have  to  store  the  results  of  intermediate 
calculations.  It  is  the  user's  responsibility,  however,  to 
Insure  that  the  data  is  defined  with  the  level  of  significance 
required  in  the  answer.  The  compute  statement  should  not  be 
used  for  simple  arithmetic  operations. 

• Hierarchy. 

The  compiler  has  a built-in  hierarchy  of  operations. 
Example  of  Hierarchy: 


** 

EXPONENTIATION 

1. 

* 

MULTIPLICATION 

2. 

/ 

DIVISION 

+ 

ADDITION 

3. 

- 

SUBTRACTION 

The  sequence  that  takes  place  is  to  scan  the  expression 
from  left  to  right  three  or  more  times. 

1.  The  first  scan  is  to  resolve  any  exponentiati-n. 

2.  The  second  scan  across  the  expression  from  left  to 
right  will  create  instructions  to  take  care  of  all  multiplica- 
tion and/or  division,  as  they  are  encountered. 

3.  The  third  time  through,  instructions  will  be  gener- 
ated to  accomplish  the  addition  and/or  subtraction. 
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Example  of  a compute  statement  and  what  actually  is 


accomplished 


COMPUTE  X-D*A**2+2*B+C 


STORE  IN  X 


X = DA  +2B+C-E 


• We  do  have  the  capability  of  altering  the  COMPUTE  state 
ment  to  force  a different  evaluation  to  occur.  We  do  this  by 
use  of  parenthesis. 


If  parenthesis  are  used,  the  compiler  will  resolve  the 
statement  beginning  with  the  innermost  set  of  parenthesis  first 
and  work  its  way  out. 


Within  each  set  of  parenthesis,  the  scan  is  still  left 
to  right  and  uses  the  normal  hierarchy. 
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• Let's  take  a look  at  this  same  COMPUTE  statement  with  a 
few  added  parenthesis  thrown  in. 


COMPUTE  X 


STORE  IN  X 


The  COMPUTE  statement  may  be  used  similar  to  FORTRAN 


notation 


EXAMPLE:  COMPUTE  X = Y 

COMPUTE  X = 0 


It  is  more  efficient  to  use  other  statements  such  as  MOVE 
for  this  purpose  in  COBOL. 
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2. 4. 9. 7 COMPUTE  STATEMENT.  (Cont.) 

• Arithmetic  expressions  may  be  used  only  with  the  COMPUTE 
statement  and  certain  testing  statements  which  we  will  get  to 
shortly.  The  arithmetic  operators  may  not  be  used  with  the 
other  four  arithmetic  verbs. 

• Exponentiation  may  be  accomplished  to  a fractional 
power. 


This  situation  should  be  avoided  as  it  requires  floating 
point  instructions.  It  would  be  more  efficient  to  accomplish 
this  operation  with  the  DIVIDE  and  MULTIPLY  statements. 
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FUNCTION.  The  COPY  statement  allows  the  inclusion  of  pre- 
written entries  in  a source  program.  These  may  be  DATA  DIVISION 
entries,  ENVIRONMENT  DIVISION  clauses,  and/or  PROCEDURE  DIVISION 
procedures . 

FORMAT. 


COPY  library-name 
^REPLACING  word-1 


jjUPPREs£j  (IBM  EXTENSION) 


f word-2 
literal-1 
identifier-1 


word-3 

BY 

J 

word-4 

literal-2 

n 

• • • 

L 

1 

identifier-2 

[j 

SYNTAX  RULES. 

• The  COPY  statement  must  be  preceded  by  a space  and 
terminated  by  a period. 

• Each  library-name  must  be  unique.  A library-name  is 
the  name  of  the  library  text  contained  in  the  user  library. 

• A COPY  statement  may  occur  in  the  source  program  any- 
where a character  string  or  separator  may  occur.  However,  a 
COPY  statement  cannot  be  contained  within  another  COPY 
statement. 

e No  other  statement  or  clause  may  appear  in  the  same 
entry  as  the  COPY  statement. 

• Word-1,  word-2,  etc.,  may  be  a data-name,  procedure- 
name,  condition-name,  mnemonic-name,  or  file-name. 
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GENERAL  RULES. 


• Compiling  a source  program  containing  COPY  statement  is 
logically  equivalent  to  processing  all  COPY  statements  prior  to 
the  processing  of  the  resultant  source  program. 

• The  copied  statements  associated  with  text-name 
logically  replace  the  entire  COPY  statement  beginning  with  the 
resolved  word  COPY  and  ending  with  the  punctuation  character, 
period . 

• The  entries  on  the  library  itself  remain  unchanged  even 
if  the  REPLACING  option  is  used. 

• If  the  REPLACING  option  is  not  specified,  the  library 
text  is  copied  unchanged. 

• If  the  REPLACING  option  is  specified  each  properly 
matched  identifier,  word,  or  literal  in  the  library  text  is 
replaced  by  the  corresponding  identifier,  word,  or  literal. 

• Text  replacement  occurs  in  the  following  manner: 

Any  separator  (comma,  space,  semicolon)  preceding  the 
leftmost  library  text-word  is  copied  into  the  source  program. 

Starting  with  the  leftmost  library  text-word,  the  entire 
REPLACING  operand  is  compared  to  an  equivalent  number  of 
contiguous  library  text-words. 

A match  occurs  if  the  library  text  is  equal,  character 
for  character,  to  the  REPLACING  operands. 

If  no  match  occurs,  the  comparison  is  continued  using 
the  next  set  of  REPLACING  operands  until  a match  is  found  or 
there  are  no  more  REPLACING  operands. 

When  all  the  sets  of  REPLACING  operands  have  been  com- 
pared and  no  match  has  occurred,  the  leftmost  library  text-word 
is  copied  into  the  source  program.  The  next  library  text-word 
is  then  considered  as  the  leftmost  library  text-word  and  the 
comparison  cycle  starts  again. 
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When  a match  occurs  between  the  REPLACING  operands  and 
the  library  text,  the  corresponding  BY  operands  are  placed  into 
the  source  program.  The  comparison  starts  again  with  the 
library  text-word  immediately  following  the  last  text-word  which 
participated  in  the  match. 

The  comparisons  continue  until  the  library  text-words 
have  been  depleted. 

• Comment  lines  are  copied  into  the  source  program 
unchanged . 

• The  text  produced  as  a result  of  the  complete  processing 
of  a COPY  statement  must  not  contain  a COPY  statement. 


• A word  or  literal  that  is  the  result  of  the  operation  of 
one  REPLACING  phrase  cannot  be  operated  on  by  any  other 
REPLACING  phrase  in  any  explicit  COPY  statement. 


VENDORS'  GUIDELINES.  The  SUPPRESS  option  is  an  IBM 
extension  to  the  ANS  COBOL  standards. 

CSC  GUIDELINES. 

• The  SUPPRESS  option  may  be  used  to  indicate  that  the 
library  entry  is  not  to  be  listed. 

• The  REPLACING  option  will  not  be  used  to  alter  Standard 
Data  Elements  and  Codes. 
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FUNCTION. 

• Debugging  statements  for  a given  paragraph  or  section  in 
a program  may  be  grouped  together  into  a debugging  packet. 

These  statements  will  be  compiled  with  the  source  language  pro- 
gram and  will  be  executed  at  object  time.  Each  packet  refers  to 
a specified  paragraph-name  or  section-name  in  the  PROCEDURE 
DIVISION.  Compile-time  debugging  packets  are  grouped  together 
and  are  placed  immediately  following  the  source  program.  No 
reference  to  procedure-names  in  debug  packets  may  be  made  in  the 
body  of  the  program. 

• Each  compile  time  debug  packet  is  headed  by  the  control 
card  DEBUG. 

FORMAT. 


DEBUG  location 


SYNTAX  RULES . The  word  DEBUG  followed  by  location  may 
appear  anywhere  within  columns  1 through  72  on  the  card.  There 
must  be  no  other  text  on  the  card. 

GENERAL  RULES. 

• The  location  is  the  section-name  or  paragraph-name 
(qualified,  if  necessary)  indicating  the  point  in  the  program 
at  which  the  packet  is  to  be  executed.  Effectively,  the  state- 
ments in  the  packet  are  executed  as  though  they  were  physically 
placed  in  the  source  program  following  the  section-name  or 
paragraph-name,  but  preceding  the  text  associated  with  the  pro- 
cedure. The  same  location  must  not  be  used  in  more  than  one 
DEBUG  control  card.  Location  cannot  be  a paragraph-name  within 
any  debug  packet. 


1 


1 PEB  79  CSCM  18-1-1 


2. 4. 9. 9 DEBUG  STATEMENT  (IBM  EXTENSION).  (Cont.). 

• A debug  packet  may  consist  of  any  procedural  statements 
conforming  to  the  requirements  of  American  National  Standards 
COBOL.  The  following  considerations  apply: 

A PERFORM  statement  in  a debug  packet  may  refer  to  a 
procedure-name  in  any  debug  packet  or  in  the  main  body 
of  the  PROCEDURE  DIVISION. 

A GO  TO  statement  in  a debug  packet  may  not  refer  to  a 
procedure-name  in  another  debug  packet,  but  Jt  may 
refer  to  a procedure-name  in  the  main  body  of  the 
PROCEDURE  DIVISION. 

VENDORS'  GUIDELINES.  The  DEBUG  statement  is  an  IBM 
Extension. 

CSC  GUIDELINES.  All  debug  statements  are  to  be  used  during 
testing  and  are  not  to  be  used  in  operational  programs. 


CSCM  18-1-1 


1 FEB  79 


2.4.9.10  DISPLAY  STATEMENT. 

FUNCTION.  The  DISPLAY  statement  causes  low  volume  data  to 
be  written  to  a specified  output  device. 

FORMAT. 


DISPLAY 


{literal-1 
identifier-1 


literal-2 

identifier-2 


UPON 
mnemonic -name 


■] 


SYNTAX  RULES. 


• Each  literal  may  be  any  figurative  constant,  except  ALL 
literal . 

• If  a numeric  literal  is  used,  it  must  be  an  unsigned 
numeric . 

GENERAL  RULES. 

• If  the  UPON  option  is  not  used,  the  vendor  specifies  the 
default  device  which  will  be  used. 

• Identifier  may  not  be  any  special  register  except  TALLY. 

• The  size  of  the  output  records  acceptable  to  each  hard- 
ware device  is  designated  by  each  vendor.  (See  VENDORS' 
GUIDELINES.) 

• The  DISPLAY  statement  causes  the  contents  of  each 
operand  to  be  transferred  to  the  output  device  in  che  sequence 
listed.  The  size  of  the  sending  item  equals  the  sum  of  the 
sizes  of  the  operands. 

• If  the  size  of  the  sending  item  is  equal  to  or  less  than 
the  vendor-specified  record  size  for  the  output  device,  the  data 
is  written  left  aligned. 
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2.4.9.10  DISPLAY  STATEMENT.  (Cont.) 

• If  the  size  of  the  sending  item  exceeds  the  vendor- 
specified  record  size  for  the  output  device,  one  of  the  following 
will  occur. 

The  data  is  left  aligned  and  written  to  the  output 
device.  Only  one  data  transfer  is  made  and  all  operands  not 
written  are  ignored. 

The  vendor  may  extend  the  basic  specifications  and  allow 
multiple  transfers  of  data  to  the  output  device  in  order  to 
display  all  operands.  (See  VENDORS'  GUIDELINES.) 

• If  a figurative  constant  is  one  of  the  operands  only  a 
single  occurrence  of  the  figurative  constant  is  displayed. 

VENDORS’  GUIDELINES. 

• IBM. 

An  IBM  extension  allows  the  use  of  the  DISPLAY  statement 
options  UPON  CONSOLE,  UPON  SYSPUNCH  (0S)/SYSPCH  (DOS),  or  UPON 
SYSOUT  (0S)/SYSLST  (DOS). 

IBM  defines  the  size  of  the  output  records  for  its  hard- 
ware devices  to  be  100  (OS)/72  (DOS)  characters  for  CONSOLE,  120 
characters  for  SYSOUT  (0S)/SYSLST  (DOS)  and  80  characters  (72 
usable  characters  and  8 program-name  characters)  for  SYSPUNCH 
(OS) /SYSPCH  (DOS). 

IBM  assigns  SYSOUT  as  the  default  device  if  the  FROM 
option  is  not  used. 

Identifiers  with  a USAGE  COMP  or  COMP-3  are  automatically 
converted  to  external  decimal  format.  Signed  values  cause  a low- 
order  sign  overpunch  to  be  developed;  for  example,  -34  displays 
as  3M;  +34  displays  as  3D. 

The  following  statements  cause  the  printer  to  space 
before  printing:  DISPLAY,  EXHIBIT,  and  WRITE  AFTER  ADVANCING. 

A simple  WRITE  statement  or  a WRITE  BEFORE  ADVANCING  causes  the 
printer  to  space  after  printing.  Mixing  these  two  categories  of 
output  statements  in  the  same  program  may  cause  overprinting. 
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2.4.9.10  DISPLAY  STATEMENT.  (Cont.) 

CSC  GUIDELINES. 

• Use  of  the  DISPLAY  statement  for  messages  requiring 
console-operator  response  will  be  avoided  except  for  contin- 
gencies where  no  other  approach  is  feasible.  Approval  must  be 
obtained  from  QAD  prior  to  use  of  this  statement. 

• Informative  messages  which  do  not  require  console 
operator  intervention  may  be  displayed  to  the  console.  However, 
it  is  preferable  that  such  messages  be  directed  to  SYSLST  (DOS) 
or  SYSOUT  (OS) . 


• PROGRAM  TO  OPERATOR  MESSAGES.  Program  messages  will  be 
displayed  upon  the  CONSOLE  as  follows. 

FORMAT. 


1 


xxxxxxxx 

b 

XX 

b 

X 

S 

S 

PROGRAM 

P 

Message 

P 

Type 

ID 

A 

Number 

A 

Message 

r 

C 

E 

E 

b 

S 

P 

A 

C 

E 


x X X 

Text  up  to  50 
positions 


PROGRAM  ID.  Will  be  program  name  in  accordance  with 
USACSCM  18-1,  Volume  1. 

MESSAGE  NUMBER.  Messages  will  be  numbered  in  sequence 
within  each  program.  Messages  numbered  1 through  9 will  be 
preceded  by  a zero. 

TYPE  OF  MESSAGE.  A one  position  code  indicating  the 
type  of  message: 


! 


. -- 
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• Messages  directing  or  requiring  operator  action  will  be 
directed  to  the  CONSOLE.  Furthermore,  this  type  message  must  be 
explained,  and  the  response  to  it  provided,  in  the  operator's 
runbook. 


a Informative  type  data  will  be  displayed  on  the  system 


printer 


CODE 

MEANING 

I 

Information  data  as  in  run  statistics. 

Print  on  SYSOUT  (OS)/SYSLST  (DOS)  only. 

D 

Operator  intervention  required. 

R 

Error  recovery  message. 

H 

Programed  halt  unrecoverable. 
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2.4.9.11  DIVIDE  STATEMENT. 

FUNCTION . The  DIVIDE  statement  Is  used  to  find  the  quotient 
and  remainder  resulting  from  the  division  of  one  numeric  data 
item  into  another  numeric  data  item. 


FORMAT. 


Format  1. 


DIVIDE 


’identifier-1  r~  -i 

« INTO  identifier-2  ROUNDED  I 

literal-1  j i 

Q)N  SIZE  ERROR  imperative-statemen^ 


literal- 


Format  2 


DIVIDE 


identif ier-D  flNTOl  f identifier-2 


literal-1  BY  literal-2 


GIVING  identifier-3 


ROUND Eoj  ^REMAINDER  identif ier-4j 
ON  SIZE  ERROR  imperative-statement^ 
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2. A. 9. 11  DIVIDE  STATEMENT.  (Cont.) 

SYNTAX  RULES. 

• Each  Identifier  must  refer  to  an  elementary  numeric  item 
except  the  identifiers  associated  with  the  GIVING  or  REMAINDER 
clauses  which  may  be  numeric-edited  items. 


• Each  literal  must  be  a numeric  literal. 

• The  maximum  size  of  each  operand  is  18  decimal  digits. 
The  maximum  size  of  the  decimal-aligned  results  of  the  division 
(quotient  and  remainder)  each  may  not  exceed  18  decimal  digits. 

GENERAL  RULES. 

• In  Format  1,  the  value  of  identifier-1  (or  llteral-1)  is 
divided  into  the  value  of  identifier-2.  The  result  (quotient) 
of  the  division  is  stored  in  the  dividend  (identifier-2). 

• In  Format  2,  the  value  of  identifier-1  (or  literal-1)  is 
divided  into  identifier-2  (or  literal-2)  or  when  BY  is  used  the 
value  of  identifier-1  (or  literal-1)  divided  by.  identifier-2  (or 
literal-2).  The  result  is  stored  in  the  object  of  the  GIVING 
option,  identifier-3.  A remainder,  if  specified,  is  stored  in 
the  object  of  the  REMAINDER  option,  identifier-3. 

• A remainder  is  defined  as  the  result  of  subtracting  the 
product  of  the  quotient  and  the  divisor  from  the  dividend. 

• When  the  ROUNDED  option  is  used,  the  quotient  is  rounded 
after  the  remainder  has  been  determined. 

• When  ON  SIZE  ERROR  is  used  with  REMAINDER  the  following 
rules  pertain: 

If  the  SIZE  ERROR  occurs  in  the  quotient  no  REMAINDER 
calculation  is  meaningful.  Thus  the  contents  of  both 
identifier-3  and  identifier-A  REMAIN  unchanged. 

If  the  SIZE  ERROR  occurs  in  the  REMAINDER  the  contents 
of  identifier-A  REMAIN  unchanged.  However,  the  user  must  do  his 
own  analysis  to  realize  which  has  occurred. 
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2.4.9.11  DIVIDE  STATEMENT.  (Cont.) 

• The  GIVING,  ROUNDED  and  SIZE  ERROR  options  are  explained 
in  Arithmetic  Options  section  in  Language  Element:  PROCEDURE 
DIVISION. 

VENDORS*  GUIDELINES.  None. 

CSC  GUIDELINES. 

• For  efficient  execution,  DIVIDE  statements  should  be  as 
simple  as  possible.  Consequently: 

Test  for  zero  divisor  before  execution. 

Do  not  use  ON  SIZE  ERROR  unnecessarily.  This  option 
increases  execution  time  and  takes  more  space  whether  a size 
error  exists  or  not. 

Do  not  use  ROUNDED  unnecessarily,  for  the  same  reason 
as  above.  To  ADD  5 and  then  MOVE  to  drop  insignificant  digits 
is  more  efficient. 

Use  of  GIVING  option  saves  instructions. 

• In  regard  to  the  data  items  specified  as  operands  in 
arithmetic  statements: 

When  they  are  all  defined  with  the  same  USAGE,  the 
relatively  expensive  operation  of  conversion  is  avoided.  This 
does  not  apply  to  display  items  in  the  IBM-360/370.  In  these 
computers  display  items  must  be  converted  to  packed  decimal 
before  they  can  be  used  arithmetically. 

When,  for  ADD  and  SUBTRACT,  they  are  all  defined  with 
the  same  number  of  decimal  places,  the  relatively  expensive 
operation  of  scaling  is  avoided. 

• In  regard  to  a result  item  specified  in  the  GIVING 
clause: 


When  it  is  defined  with  sufficient  integer  places  to 
provide  for  the  maximum  integer  value  possible,  the  need  for  the 
ON  SIZE  ERROR  clause  is  eliminated. 
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When  It  is  defined  with  the  same  number  of  decimal 
places  as  the  calculated  result,  the  relatively  expensive  oper- 
ation of  truncation,  rounding,  or  scaling  (whichever  applies  in 
the  particular  case)  is  avoided. 

When  it  is  defined  with  same  USAGE  as  the  calculated 
result,  a conversion  operation  is  avoided. 

When  it  is  defined  as  signed,  the  operation  of 
removing  the  sign  (which  is  generated  automatically  by  the  hard- 
ware) is  avoided. 

For  a packed  decimal  result  item  is  defined  with  an 
odd  number  of  digits,  the  operation  of  setting  the  items  high- 
order  digit  to  zero  is  avoided.  (When  a packed  decimal  item  is 
defined  with  an  even  number  of  digits,  an  idiosyncrasy  of  the 
hardware  causes  the  storage  assigned  to  the  item  to  include  one 
more  digit  position  than  the  number  of  digits  defined.  The  com- 
piler assumes  the  responsibility  of  making  sure  that  the  extra  0 
digit  position  contains  a zero  whenever  data  is  placed  in  the 
item.) 

I ( 

I ^ 


I 


1 
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2.4.9.12  ENTER  STATEMENT  (NOT  CSC  COBOL). 

FUNCTION.  The  ENTER  statement  provides  a means  of  allowing 
the  use  of  more  than  one  language  In  the  same  program. 

FORMAT. 


ENTER  language-name 


r, 


routine-name 


L 


SYNTAX  RULES. 

• The  language-name  refers  to  any  programing  language  which 
the  implementor  specifies  may  be  entered  through  COBOL. 

• A routine-name  is  a COBOL  word  and  may  be  referred  to 
only  in  an  ENTER  sentence. 

• The  sentence  ENTER  COBOL  must  follow  the  last  non-COBOL 
statement  to  indicate  to  the  compiler  the  resumption  of  COBOL 
source  coding. 

GENERAL  RULES. 

• The  non-COBOL  statements  are  executed  in  the  object 
program  as  if  they  had  been  compiled  into  the  object  program 
following  the  ENTER  statement. 

• Details  on  non-COBOL  languages  and  how  they  are  to  be 
written  will  be  specified  by  individual  vendors. 

• If  the  statements  in  the  entered  language  cannot  be 
written  in-line,  a routine-name  is  given  to  identify  the  portion 
of  the  non-COBOL  coding  to  be  executed  at  this  point  in  the 
procedure  sequence.  If  the  non-COBOL  statements  can  be  written 
in-line,  routine-name  is  not  used. 
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VENDORS*  GUIDELINES.  IBM  uses  this  statement  only  as 
comments.  The  IBM  compiler  allows  no  other  source  language 
in-line  in  the  source  program.  Non-COBOL  routines  can  be 
incorporated  by  using  the  CALL  statement. 


CSC  GUIDELINES.  The  ENTER  statement  provides  no  useful 
function  with  current  IBM  compiler  and  thus  should  be  avoided. 


I 
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2.4.9.13  ENTRY  STATEMENT  (IBM  EXTENSION). 

FUNCTION . The  ENTRY  statement  establishes  an  entry  point 
In  a called  program. 

VENDORS'  GUIDELINES.  IBM  extension. 

CSC  GUIDELINES.  The  PROCEDURE  DIVISION  option  (PROCEDURE 
DIVISION  using  identifier-2. .. identif ier-n)  should  be  sub- 
stituted in  place  of  the  ENTRY  statement.  The  PROCEDURE 
option  is  an  ANS  standard. 
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2.4.9.14  EXAMINE  STATEMENT  (NOT  CSC  COBOL) . 

FUNCTION . The  EXAMINE  statement  is  used  to  count  the  number 
of  times  a specified  character  appears  in  a data  item  and/or  to 
replace  a character  with  another  character. 


FORMAT. 


Format  1, 


UNTIL  FIRST] 

EXAMINE  identifier  TALLYING  ALL  Lliteral-1 

| LEADING  | 

— . v.  J 

f REPLACING  BY  literal-2 


Format  2. 


I 

(J 


Z3MCS1  L:>r. ; : ' ; ,»r  i <)G 


BY  literal-2 


ALL 

I.EAL' V 


UNTIL  FIRST 


literal-1 
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2.4.9.14  EXAMINE  STATEMENT  (NOT  CSC  COBOL).  (Cont.) 
SYNTAX  RULES. 


• The  description  of  identifier  must  have  an  explicit  or 
implicit  USAGE  of  DISPLAY. 

• Each  literal  must  be  a single  character  in  a class 
consistent  with  the  identifier. 

• Each  literal  may  be  any  figurative  constant  except  ALL. 

• A signed  numeric  literal  is  not  permitted. 

GENERAL  RULES. 

• Examination  proceeds  as  follows: 

For  nonnumeric  data  items,  each  character  in  the  data 
item  is  examined,  in  turn,  from  left  to  right.  Any  reference 
to  the  first  character  means  the  leftmost  one. 

Numeric  items  must  consist  of  numeric  characters  and 
may  have  an  operational  sign.  Each  character  is  examined,  in 
turn,  from  left  to  right.  If  an  operational  sign  is  indicated, 
it  is  ignored  by  the  EXAMINE  statement. 

• In  Format  1,  an  integral  count  is  taken  which  replaces 
the  value  of  the  special  register  TALLY.  This  special  register 
is  implicitly  described  as  a five-digit  unsigned  counter. 

When  the  ALL  option  is  used,  the  count  represents  the 
number  of  occurrences  of  literal-1. 

When  the  LEADING  option  is  used,  the  count  represents 
the  number  of  occurrences  of  literal-1  before  encountering  a 
character  other  than  literal-1. 

When  the  UNTIL  FIRST  option  is  used,  the  count  repre- 
sents all  characters  encountered  before  the  first  occurrence  of 
literal-1 . 

When  the  REPLACING  option  is  used  with  TALLY,  it 
follows  the  same  replacement  rules  as  Format  2. 
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2.4.9.14  EXAMINE  STATEMENT  (NOT  CSC  COBOL) . (Cont.) 


• In  Format  2 (or  the  REPLACING  option  of  Format  1) 
following  rules  for  replacement  apply. 


Wh-m  the  ALL  option  is  used,  each  occurrence  of 
literal-1  is  replaced  by  literal-2. 


When  the  LEADING  option  is  used,  .he  replacement  of 
literal-1  by  literal-2  terminates  upon  the  first  occurrence  of 
a character  other  than  literal-1  or  the  right-hand  boundary  of 
the  data  item. 


When  the  UNTIL  FIRST  option  is  used,  literal-2  replaces 
each  character  until  the  first  occurrence  of  literal-1  or  the 
right-hand  boundary  is  encountered. 


When  the  FIRST  option  is  used 
the  first  occurrence  of  literal-1. 


• The  following,  FIGURE  2-23,  gives  examples  of  data 
examination. 


Resulting 
Value  of 
Tally 


Data 
(Af  ter) 


101010 


No  Change 


No  Change 


222200 


FIGURE  2-23 


EXAMINE  Statement 

I tem-1 
(Before) 

EXAMINE  ITEM-1  TALLYING  ALL  0 

101010 

EXAMINE  ITEM-1  TALLYING  ALL  1 
REPLACING  BY  0 

101010 

EXAMINE  ITEM-1  REPLACING 
LEADING  "*"  BY  SPACE 

**7000 

EXAMINE  ITEM-1  REPLACING 

FIRST  BY  "$" 

**1.94 

EXAMINE  ITEM-1  TALLYING  UNTIL 
FIRST  0 REPLACING  BY  2 

111100 
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2.4.9.14  EXAMINE  STATEMENT  (NOT  CSC  COBOL).  (Cont.) 

VENDORS'  GUIDELINES. 

• IBM- 

The  EXAMINE  statement  will  become  obsolete  with  sub- 
sequent compilers.  Its  functions  will  become  a part  of  the 
INSPECT  statement  which  is  now  being  developed. 

CSC  GUIDELINES.  Use  of  the  EXAMINE  statement  should  be 
avoided  due  to  developments  concerning  the  INSPECT  verb.  Ic 
is  unclear  if  the  EXAMINE  statement  will  be  retained  once  the 
functions  of  this  verb  become  part  of  the  INSPECT  verb. 
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2.4.9.15  EXHIBIT  STATEMENT  (IBM  EXTENSION). 

FUNCTION.  The  EXHIBIT  statement  displays  the  values  and/or 
data  items  during  program  execution. 

FORMAT. 


EXHIBIT / 


NAMED 
CHANCED  NAMED V 


CHANGED 


J identifier-1 
nonumeric-literal-1 1 


[ 


identifier-2 

nonnumeric-literal-2 ... 


SYNTAX  RULES. 

• The  identifiers  listed  in  the  statement  must  not  be  any 
special  registers  with  the  exception  of  the  TALLY  register. 

• The  combined  total  length  of  all  items  displayed  with 
either  the  EXHIBIT  CHANGED  option  or  the  EXHIBIT  CHANGED  NAMED 
option  cannot  exceed  32,767  bytes. 

• The  length  of  any  one  operand  must  be  no  greater  than 
256  bytes. 

• The  length  of  an  exhibited  field  must  be  no  greater  than 
120  characters. 

• Variable  length  identifiers  are  not  permitted  as 
operands . 
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2.4.9.15  EXHIBIT  STATEMENT  (IBM  EXTENSION).  (Cont.) 

GENERAL  RULES. 

• A maximum  logical  record  size  of  120  characters  is 
assumed.  The  format  of  the  output  for  each  identifier  listed  in 
the  EXHIBIT  statement  is: 


original  identifying  name,  including 
(no  more  than  120  characters  in 

qualifiers  if  written 
length) 

space 

equal  sign 

J space  | 

| value  of  identifier  (no  more  than  256  bytes  in  length)  g 

space 

• If  nonnumeric-literals  are  specified,  they  are  displayed 
as  remarks  each  time  the  statement  is  executed. 

• The  combined  total  length  of  all  operands  for  all  EXHIBIT 
CHANGED  NAMED  plus  all  EXHIBIT  CHANGED  statements  in  one  program 
cannot  exceed  32,767  bytes. 

• If  the  EXHIBIT  NAMED  option  is  specified,  there  is  a 
formatted  display  of  each  identifier  listed  and  its  value. 

• If  the  EXHIBIT  CHANGED  NAMED  option  is  specified,  there 
is  a display  of  each  identifier  listed  and  its  value  only  if  the 
value  has  changed  since  the  previous  execution. 

On  the  initial  execution,  all  values  are  considered 
changed  and  are  therefore  displayed. 

If  none  of  the  values  for  the  identifiers  have  changed, 
no  blank  lines  will  be  printed. 
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2.4.9.15  EXHIBIT  STATEMENT  (IBM  EXTENSION) . (Cont.) 


• If  the  EXHIBIT  CHANCED  option  is  specified,  there  is  a 
display  of  the  current  value  of  each  identifier  listed  only  if 
the  value  has  changed  since  the  previous  execution. 


On  the  initial  execution,  all  values  are  considered 
changed  and  are  therefore  displayed. 


The  operands  are  displayed  in  the  order  they  are 
listed  in  the  statement. 


VENDORS*  GUIDELINES.  The  EXHIBIT  statement  is  an  IBM 
extension  to  the  ANS  COBOL  specifications. 


CSC  GUIDELINES.  The  EXHIBIT  verb  should  only  be  used  as  a 
debugging  aid  as  it  is  unique  to  IBM  COBOL. 
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2.4.9.16  EXIT  STATEMENT  (IBM  EXTENSION). 

FUNCTION.  The  EXIT  statement  provides  the  common  end  point 
for  a series  of  procedures.  The  EXIT  PROGRAM  statement  marks 
the  logical  end  of  a called  program. 

FORMAT. 


paragraph-name . 
EXIT. 

EXIT  PROGRAM. 


SYNTAX  RULES. 

• The  EXIT  or  EXIT  PROGRAM  statement  must  appear  in  a 
sentence  by  itself. 

• The  EXIT  or  EXIT  PROGRAM  sentence  must  be  the  only 
sentence  in  the  paragraph. 

GENERAL  RULES. 

• The  EXIT  statement  serves  to  allow  the  user  to  assign  a 
procedure-name  to  a given  point  in  a program.  Usually  control 
is  passed  through  a series  of  procedures  by  going  from  para- 
graphs or  sections  sequentially  or  as  directed.  In  the  case  of 
a PERFORM,  control  may  be  passed  to  another  point  in  the  pro- 
gram by  associating  a procedure-name  at  the  point  of  the  EXIT 
statement. 

• If  control  reaches  an  EXIT  paragraph  and  no  associated 
PERFORM  is  active,  control  is  passed  through  the  EXIT  statement 
to  the  first  sentence  in  the  next  paragraph. 

• The  EXIT  PROGRAM  option  is  used  in  a subprogram  (called 
by  another  program) . If  a program  has  been  called  and  an  EXIT 
PROGRAM  statement  is  encountered,  control  is  returned  to  the 
calling  program  at  a point  immediately  following  the  CALL 
statement. 
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2.4.9.16  EXIT  STATEMENT  (IBM  EXTENSION).  (Cont.) 

• If  the  program  has  not  been  called  and  an  EXIT  PROGRAM 
Is  encountered.  It  drops  through  to  the  first  sentence  In  the 
next  paragraph. 

VENDORS'  GUIDELINES.  None. 

CSC  GUIDELINES. 

• The  EXIT  PROGRAM  statement  should  be  used  to  return  to 
the  calling  program  In  lieu  of  the  GOBACK  statement.  The  EXIT 
PROGRAM  Is  recognized  as  a CODASYL  standard  whereas  GOBACK  is 
not. 

• An  EXIT  paragraph  should  always  be  the  last  paragraph 
in  a PERFORM  (paragraph- 1)  through  (paragraph-n)  statement. 


i < 


; 

I 


I 
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2.4.9.17  GO  TO  STATEMENT. 

FUNCTION . The  GO  TO  statement  causes  control  to  be  trans- 
ferred from  one  part  of  the  PROCEDURE  DIVISION  to  another. 

FORMAT. 

Format  1. 


GO  TO  procedure-name 

Format  2. 

GO  TO  procedure-name- 1 

^procedure-name-0 

DEPENDING  ON  identifier 

SYNTAX  RULES. 

• Identifier  is  the  name  of  a numeric  elementary  item  with 
no  decimal  positions. 

• Tf  Format  1 of  the  GO  TO  statement  appears  in  a series 
of  imperative  statements  in  a sentence,  it  must  be  the  last 
statement  in  the  sentence. 

GENERAL  RULES. 

• In  Format  1,  when  the  CO  TO  statement  is  executed, 
control  is  transferred  to  procedure-name- 1 . 
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• In  Format  2,  control  is  transferred  to  one  of  a series 
of  procedures  depending  on  the  value  of  identifier.  If 
identifier  is  1,  control  passes  to  procedure-name- 1.  If 
identifier  is  2,  control  passes  to  procedure-name- 2,  etc. 

Identifier  must  represent  a positive  unsigned  integer. 

If  the  value  of  identifier  is  not  within  the  range 
from  1 to  n,  the  GO  TO  statement  is  ignored  and  control  passes 
to  the  next  statement  in  the  normal  sequence  for  execution. 

VENDORS'  GUIDELINES.  IBM  limits  the  number  of  procedure- 
names  specified  in  Format  2 to  2,031. 

CSC  GUIDELINES.  Use  of  the  GO  TO  without  procedure -name (s) 
or  DEPENDING  options  is  prohibited  as  the  ALTER  statement  must 
be  used  for  proper  execution. 

j 


i 
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2. A. 9. 18  IF  STATEMENT. 

FUNCTION . ’rhe  IF  statement  causes  a condition  to  be  evalu- 
ated. The  subsequent  action  of  the  object  program  depends  upon 
whether  the  condition  is  true  or  false. 

FORMAT. 


r ■>. 

IF  condition  statement-1 

ELSE  C statement-2  \ 

NEXT  SENTENCE 

\ NEXT  SENTENCE  f | 

u L J -* 

SYNTAX  RULES. 


• Stateraent-1  and  statement-2  represent  either  a condi- 
tional statement  or  an  imperative  statement,  and  either  may  be 
followed  by  a conditional  statement. 

• The  phrase  ELSE  NEXT  SENTENCE  may  be  omitted  if  and  only 
if  it  immediately  precedes  the  period  for  the  sentence. 

GENERAL  RULES.  When  an  IF  statement  is  executed,  the 
following  transfers  of  control  occur. 

• If  the  condition  is  true,  statement-1  is  executed  if 
specified.  If  statement-1  contains  a procedure  branching  or 
conditional  statement,  control  is  explicitly  transferred  in 
accordance  with  the  rules  for  that  statement.  If  there  is  no 
procedure  branching  or  conditional  statement,  the  ELSE  phrase, 
if  specified,  is  ignored  and  control  passes  to  the  next 
executable  sentence. 

• If  the  condition  is  true  and  the  NEXT  SENTENCE  is  speci- 
fied instead  of  statement-1,  the  ELSE  phrase,  if  specified,  is 
ignored  and  control  passes  to  the  next  executable  sentence. 

• If  the  condition  is  false,  statement-1  or  its  surrogate 
NEXT  SENTENCE  is  ignored,  and  statement-2,  if  specified,  is 
executed.  If  statement-2  contains  a procedure  branching  or  a 
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conditional  statement,  control  is  explicitly  transferred  accord 
ing  to  the  rules  for  that  statement.  If  statement-2  does  not 
contain  a procedure  branching  or  conditional  statement,  control 
passes  to  the  next  executable  sentence. 


• If  the  condition  is  false  and  the  ELSE  NEXT  SENTENCE 
phrase  is  specified,  statement- 1 is  ignored,  if  specified,  and 
control  passes  to  the  next  executable  sentence. 


VENDORS'  GUIDELINES.  The  ALL  figurative  constant  should  be 
used  to  test  a single  character  field. 


CSC  GUIDELINES 


• The  nested  IF  statement  will  only  be  used  on  projects 
defined  as  Structured  Programming  by  the  Command.  This  does  not 
apply  to  programs  written  prior  to  the  published  date  of  this 
change  until  they  are  rewritten.  Nested  IF's  beyond  three 
levels  are  discouraged. 


When  statement-1  or  statement-2  contains  an  IF  state 
the  IF  statement  is  said  to  be  nested. 


ment 


• IF  statements  within  IF  statements  may  be  considered  as 
paired  IF  and  ELSE  combinations,  proceeding  from  left  to  right. 
Any  ELSE  encountered  is  considered  to  apply  to  the  immediately 
preceding  IF  that  has  not  been  already  paired  with  an  ELSE. 


• When  control  is  transfered  to  the  next  sentence, 
implicitly  or  explicitly,  control  passes  to  the  next  sentence  as 
written  or  to  a return  mechanism  of  a PERFORM  or  a USE  statement 


• The  following  example  contains  two  independent  nests  of 
conditional  statements.  The  first  nest  ends  after  the  statement 
PERFORM  procedure-name-2;  the  second  nest  consist  of  the 
remainder  of  the  sentence  and  has  an  implied  ELSE  NEXT  SENTENCE 
before  the  period.  'A',  'B,  'C,  'D',  'E',  'F'  each  corresponds 
to  a conditional  expression. 
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IF  A THEN 
IF  B THEN 

PERFORM  PROCEDURE- NAME- 1 
ELSE 

NEXT  SENTENCE 

ELSE 

IF  C THEN 

NEXT  SENTENCE 
ELSE 

PERFORM  PROCEDURE-NAME- 2. 

IF  D THEN 

PERFORM  PROCEDURE- NAME- 3 
IF  E THEN 

PERFORM  PROCEDURE-NAME-4 
IF  E THEN 

PERFORM  PROCEDURE-NAME- 5 

ELSE 

PERFORM  PROCEDURE-NAME-6 

ELSE 

STOP  RUN. 


IMPLIED  NEXT  SENTENCE. 

• Compound  condition  which  require  combining  both  the 
logical  connectors  AND  and  OR  will  not  be  permitted  without  the 
use  of  parentheses  to  make  the  exact  evaluation  of  the  total 
expression  clear.  Failure  to  use  parentheses  in  this  situation 
relies  on  the  evaluation  algorithm  of  the  particular  compiler(s) 
employed,  which  can  vary  from  compiler  to  compiler,  and  is 
easily  misunderstood  and  erroneously  programed. 

• Complex  relational  condition  which  employ  NOT  logic  must 
not,  under  any  conditions,  use  the  logical  connector  OR  to 
connect  the  arguments  of  the  relation  condition.  Such  a con- 
struction will  never  work  properly,  as  the  imperative  statement 
(the  true  path)  will  always  be  executed  no  matter  what  arguments 
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are  being  tested.  The  proper  logical  connector  i9  AND,  and  is 
the  only  one  which  will  work  properly.  It  is  used  in  the 
following  sense:  "If  condition  to-be-tested  is  not  equal  to 
any  of  the  following  arguments,  execute  imperative  statement." 
An  example  of  improper  coding  is  as  follows: 


IF  A NOT  EQUAL  TO  B OR  C OR  D PERFORM 


The  same  statement,  coded  properly,  is  as  follows 


IF  A NOT  EQUAL  TO  B AND  C AND  D PERFORM 


The  following  example  does  not  fall  under  the  restric 
tion  stated  in  this  paragraph,  as  it  is  simply  a compound 
condition  having  two  elements. 


IF  A NOT  EQUAL  TO  B OR  C NOT  EQUAL  TO  D PERFORM 
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The  above  example  is  correct  because  the  conditions 
being  tested  are  different.  However,  If  the  second  condition 
is  changed  to  read  "A  NOT  EQUAL  TO  D",  it  is  wrong  for  the  same 
reason  the  first  example  will  always  be  executed. 

• Avoid: 

Using  the  class  test  condition  unnecessarily.  This 
test  is  expensive  in  terms  of  coding  generated  and  execution 
time. 


Numeric  comparisons  of  items  with  different  numbers 
of  decimal  places.  This  type  of  comparison  is  particularly 
dangerous  because  comparison  is  based  on  composite  field  size; 
not  minimum  field  size.  For  example,  comparison  of  items 
defined  as  9V99  and  9V9  cannot  be  equal  unless  the  former  has  a 
zero  as  its  low-order  digit  (e.g.,  1.21  is  not  equal  to  1.2). 

To  circumvent  this  problem,  decimal  places  can  be  truncated  by 
moving  the  longer  item  to  one  properly  defined  (in  this  case  as 
9V9) . Any  conversion  to  a more  efficient  usage  can  be  accom- 
plished at  the  same  time. 

Comparing  nonnumeric  items  of  different  sizes. 

Making  group  comparisons  on  records  that  contain  slack 
positions,  because  the  contents  of  the  slack  positions  are 
generally  unpredictable  and  can  cause  an  invalid  comparison. 

Using  the  phrase  "ELSE  NEXT  SENTENCE",  which  is  mean- 
ingless unless  it  is  within  a nested  IF  statement.  In  a simple 
IF  this  is  the  result  when  the  condition  is  not  met;  therefore, 
use  of  the  phrase  is  redundant  and  should  be  avoided. 

• The  following  techniques  should  be  employed  whenever 
possible  to  assure  efficient  IF  statements.  Refer  to  the  table 
following  this  test  for  example  references  (FIGURE  2-24). 

Do  not  specify  a GO  TO  (in  an  IF  statement)  to  a 
sequence  of  coding  which  returns  control  to  the  statement 
following  the  IF.  If  the  sequence  is  3 statements  or  less, 
place  them  in  the  IF  statement  (refer  to  example  H) . If  it  is 
a longer  sequence  PERFORM  it  from  the  IF  statement. 
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The  above  example  is  correct  because  the  conditions 
being  tested  are  different.  However,  if  the  second  condition 
is  changed  to  read  "A  NOT  EQUAL  TO  D",  it  is  wrong  for  the  same 
reason  the  first  example  will  always  be  executed. 

• Avoid: 

Using  the  class  test  condition  unnecessarily.  This 
test  is  expensive  in  terms  of  coding  generated  and  execution 
time . 


Numeric  comparisons  of  items  with  different  numbers 
of  decimal  places.  This  type  of  comparison  is  particularly 
dangerous  because  comparison  is  based  on  composite  field  size; 
not  minimum  field  size.  For  example,  comparison  of  items 
defined  as  9V99  and  9V9  cannot  be  equal  unless  the  former  has  a 
zero  as  its  low-order  digit  (e.g.,  1.21  is  not  equal  to  1.2). 

To  circumvent  this  problem,  decimal  places  can  be  truncated  by 
moving  the  longer  item  to  one  properly  defined  (in  this  case  as 
9V9) . Any  conversion  to  a more  efficient  usage  can  be  accom- 
plished at  the  same  time. 

Comparing  nonnumeric  items  of  different  sizes. 

Making  group  comparisons  on  records  that  contain  slack 
positions,  because  the  contents  of  the  slack  positions  are 
generally  unpredictable  and  can  cause  an  invalid  comparison. 

Using  the  phrase  "ELSE  NEXT  SENTENCE",  which  is  mean- 
ingless unless  it  is  within  a nested  IF  statement.  In  a simple 
IF  this  is  the  result  when  the  condition  is  not  met;  therefore, 
use  of  the  phrase  is  redundant  and  should  be  avoided. 

• The  following  techniques  should  be  employed  whenever 
possible  to  assure  efficient  IF  statements.  Refer  to  the  table 
following  this  test  for  example  references  (FIGURE  2-24). 

Do  not  specify  a GO  TO  (in  an  IF  statement)  to  a 
sequence  of  coding  which  returns  control  to  the  statement 
following  the  IF.  If  the  sequence  is  3 statements  or  less, 
place  them  in  the  IF  statement  (refer  to  example  //l).  If  it  is 
a longer  sequence  PERFORM  it  from  the  IF  statement. 
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NEXT  SENTENCE  (or  its  equivalent)  can  often  be  conve- 
niently avoided  by  reversing  the  relation  (refer  to  example  112). 

There  is  a definite  breakdown  point  (in  terms  of 
efficiency  of  object  code)  between  the  use  of  a series  of  IF 
statements  and  the  CO  TO  DEPENDING  ON,  where  both  are  applicable. 
The  breakeven  point  is  4 IF  statements.  (Refer  to  example  1/3). 

A still  more  efficient  corollary  should  be  used  when  one  partic- 
ular value  of  the  series  tested  is  expected  to  be  present  a 
majority  of  the  time.  In  this  case,  test  for  the  particular 
value  with  an  IF  statement  and  use  the  GO  TO  DEPENDING  as  the 
false  branch  of  the  IF. 

Avoid  testing  the  same  item  for  more  than  one  value 
once  the  condition  has  been  satisfied  (refer  to  example  #4). 

When  appropriate,  test  for  ranges  of  values  rather 
than  each  individual  value  (refer  to  example  // 5). 

Dse  of  IF. . .ALPHABETIC  conditional  is  extremely 
inefficient.  Avoid  use  or  specify  IF  NOT  NUMERIC. 

• Examples.  Refer  to  FIGURE  2-24. 


I EXAMPLE 

MORE  EFFICIENT  METHOD 

LESS  EFFICIENT 

METHOD  ] 

r ~ — 1 

IF  A EQUALS  il 

IF  A EQUALS 

B GO  TO  C. 

MOVE  X TO  Y 

D.  MOVE  . . . 

//I 

PERFORM  Z. 

• 

D.  MOVE  ... 

C.  MOVE  X TO  Y 

• 

PERFORM  Z 

• 

GO  TO  D. 

FIGURE  2-24 
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MORE  EFFICIENT  METHOD 


LESS  EFFICIENT  METHOD 


EXAMPLE 


IF  A NOT  EQUAL  TO  B 
MOVE  C TO  D 


IF  A EQUALS  B NEXT  SENTENCE 
ELSE  MOVE  C TO  D. 


GO  TO  PI,  P2,  . .PI 2 
DEPENDING  ON  A 


IF  A EQUALS  1 GO  TO  PI 
IF  A EQUALS  2 CO  TO  P2 


IF  A EQUALS  12  GO  TO  P12 


IF  A EQUALS  1 MOVE  X TO  B 
GO  TO  C. 

IF  A EQUALS  7 MOVE  Y TO  B 
GO  TO  C. 

IF  A EQUALS  9 MOVE  Z TO  B 
GO  TO  C. 


IF  A EQUALS  1 
MOVE  X TO  B 
IF  A EQUALS  7 
MOVE  Y TO  B 
IF  A EQUALS  9 
MOVE  Z TO  B 


IF  A LESS  THAN  1 GO  TO  C 


IF  A EQUALS  l GO  TO  B 
IF  A EQUALS  2 GO  TO  B 
IF  A EQUALS  3 GO  TO  B 
IF  A EQUALS  4 GO  TO  B 


IF  A LESS  THAN  5 GO  TO  B 


FIGURE  2-24  (Cont.) 


Alternative  instructions  of  IF  statements 
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FUNCTION . The  MOVE  statement  transfers  data,  in  accordance 
with  the  rules  of  editing,  to  one  or  more  data  areas. 


FORMAT. 


Format  1. 


^ TO  identifier-2 

identifier-3 

L J 

identifier-1  TO  identifier-2 


SYNTAX  RULES. 

• Identifier-1  and  literal  represent  the  sending  area; 
identifier-2,  identifier-3,  ...,  represent  the  receiving  areas. 

• An  index  data  item  cannot  appear  as  an  operand  of  a 
MOVE  statement. 

GENERAL  RULES. 

• The  data  designated  by  literal  or  identifier-1  is  moved 
first  to  identifier-2,  then  to  identifier-3  (if  specified),  etc. 

• Any  move  in  which  the  sending  and  receiving  items  are 
both  elementary  items  is  an  elementary  move.  Every  elementary 
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item  belongs  to  one  of  the  following  categories:  numeric, 
alphabetic,  alphanumeric,  number-edited,  alphanumerlc-edited. 
Literals  and  figurative  constants  are  categorized  as  follows: 

Numeric  literals  belong  to  the  category  numeric. 

Nonnumeric  literals  belong  to  the  category  alphanumeric. 

The  figurative  constant  ZERO  (ZEROS,  ZEROES)  belong  to 
the  category  numeric. 

The  figurative  constant  SPACE  (SPACES)  belongs  to  the 
category  alphabetic. 

All  other  figurative  constants  belong  to  the  category 
alphanumeric . 

• Data  items  from  each  group  are  considered  corresponding 
when  they  have  the  same  name  and  qualification,  up  to  but  not 
including  identifier-1  and  identifier-2. 

• The  following  rules  apply  to  an  elementary  move  between 
categories : 

A numeric-edited,  alphanumeric-edited , or  alphabetic 
data  item  or  the  figurative  constant  SPACE  cannot  be  moved  to  a 
numeric  or  numeric-edited  data  item. 

A numeric  literal,  a numeric  data  item,  a numeric-edited 
data  item,  or  the  figurative  constant  ZERO  must  not  be  moved  to 
an  alphabetic  data  item. 

A non-integer  (containing  an  explicit  decimal  point) 
numeric  literal  or  a non-integer  numeric  data  item  must  not  be 
moved  to  an  alphanumeric  or  alphanumeric-edited  data  item. 

• Any  necessary  conversion  of  data  from  one  form  of 
internal  representation  to  another  takes  place  during  the  move, 
along  with  any  specified  editing  in  the  receiving  item. 

When  an  alphanumeric  or  alphanumeric-edited  item  is  the 
receiving  item,  the  following  data  conversion  principles  apply. 
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1.  Alignment  takes  place  from  left  to  right  as  defined 
under  the  Standard  Alignment  Rules  (Language  Concepts),  unless  the 
JUSTIFIED  clause  specifies  otherwise. 


2.  Unused  character  positlo* s are  filled  with  spaces 


3.  If  the  size  of  the  sending  item  is  greater  than  the 
size  of  the  receiving  item,  the  receiving  item  will  be  filled  from 
the  left  and  excess  characters  will  be  truncated  on  the  right, 
unless  otherwise  specified  by  the  JUSTIFIED  clause. 


. If  the  sending  item  is  described  as  a signed 
the  operational  sign  will  not  be  moved. 


numeric 


When  a numeric  or  numeric-edited  item  is  the  receiving 
item,  the  following  data  conversion  principles  apply. 


1.  Alignment  by  decimal  point  takes  place  as  defined  by 
Standard  Alignment  Rules  (Language  Concepts). 


2.  Unused  positions  are  zero-filled  unless  otherwise 
specified  by  editing  requirements. 


3.  When  the  receiving  item  is  a signed  numeric,  the 
sign  of  the  sending  item  is  placed  in  the  receiving  item.  If  the 
sending  item  is  unsigned,  a positive  sign  is  generated  for  the 
receiving  item. 


4.  When  the  receiving  item  is  an  unsigned  numeric,  the 
absolute  value  of  the  sending  item  is  moved  and  no  operational 
sign  is  generated  for  the  receiving  item. 


5.  If  the  sending  item  has  more  digits  to  the  left  or 
to  the  right  of  the  decimal  point  than  the  receiving  item  can 
contain,  the  excess  digits  are  truncated. 


6.  If  the  sending  item  is  alphanumeric,  it  is  moved  as 
if  it  were  an  unsigned  numeric  integer. 


7.  If  the  sending  item  contains  any  nonnumeric  char 
acters,  the  results  are  unpredictable. 
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When  an  alphabetic  item  is  the  receiving  item,  the 
following  data  conversion  considerations  apply. 


1.  Alignment  takes  place  from  left  to  right  according 
to  the  Standard  Alignment  Rules  (Language  Concepts),  unless 
otherwise  specified  by  the  JUSTIFIED  clause. 


2.  If  the  sending  item  is  greater  than  the  receiving 
item,  truncation  will  occur  to  the  right  unless  otherwise  speci- 
fied by  the  JUSTIFIED  clause. 


• Any  move  that  is  not  an  elementary  move  is  treated  as  if 
it  were  an  alphanumeric  to  alphanumeric  elementary  move,  except 
that  no  data  conversion  takes  place.  The  receiving  area  is 
filled  without  consideration  of  individual  elementary  or  group 
items  contained  within  either  the  sending  or  receiving  area. 


• The  following  chart  summarizes  various  types  of  MOVE 
statements.  The  general  rule  reference  indicates  the  rule  that 
prohibits  or  allows  the  move.  Refer  to  FIGURE  2-25. 


1 


Category  of  Receiving  Data  Item 

11  | 

1 

Category  of 

Sending 

Data  Item 

Alphabetic 

Alphanumeric 

Edited 

Alphanumeric 

Numeric  Integer 
Numeric  Non-Integer 
Numeric  Edited 

__  .*  1 

Alphabetic 

Yes/4c 

Yes/ 4a 

No/3a 

Alphanumeric 

Yes/4c 

Yes/4a 

Yes /4b 

i 

Alphanumeric  Edited 

Yes/4c 

Yes/4a 

Yes/3a 

4 

Integer 

No /3b 

Yes/4a 

Yes/4b 

Non- Integer 

No /3b 

No /3c 

Yes/4b 

Numeric- 

■Edited 

No /3b 

Yes/4a 

No /3a 

J 

FIGURE  2-25 
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VENDORS'  GUIDELINES.  None 


CSC  GUIDELINES 


For  character  moves 


Employ  caution  when  using  a group  item  as  a receiving 
field  because  data  is  moved  to  a group  item  on  a character  basis 
without  regard  to  Individual  items  within  the  group. 


When  the  receiving  field  is  longer  than  the  sending 
field  the  MOVE  is  less  efficient  than  when  the  receiving  field 
is  shorter  or  the  fields  are  of  equal  size. 


Remember  that  when  the  receiving  field  is  shorter 
excess  characters  in  the  sending  field  are  ignored. 


Edited  moves  are  extremely  costly 


• Each  reference  to  an  unsigned  numeric  item  as  a receiving 
field  requires  an  extra  object  instruction. 


• With  IBM/360  only;  MOVE,  READ... INTO,  WRITE. . .FROM,  or 
REWRITE. .. FROM  where  receiving  field  exceeds  256  characters 
requires  extra  object  instructions,  avoid  where  possible. 


• Performing  a MOVE  operation  for  an  item  greater  than  256 
bytes  in  length  requires  the  generation  of  more  instructions 
than  are  required  for  that  of  a MOVE  operation  for  an  item  of  256 
bytes  or  less. 


• When  a MOVE  statement  with  the  CORRESPONDING  option  is 
executed,  data  items  are  considered  CORRESPONDING  only  if  their 
respective  data  names  are  the  same,  including  all  implied  quali 
fication,  up  to,  but  not  including  the  data-names  used  in  the 
MOVE  statement  itself.  For  example, 
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01  AA 

01  XX 

03 

BB 

03 

BB 

05 

CC 

05 

CC 

05 

DD 

05 

DD 

03 

EE 

03 

YY 

05 

FF 

05 

FF 

The  statement  MOVE  CORRESPONDING  AA  TO  XX  will  result  in 
moving  CC  and  DD  but  not  FF  because  FF  of  EE  does  not  correspond 
to  FF  of  YY. 

The  compiler  assumes  that  the  data  being  moved  conforms 
to  PICTURE  and  USAGE  specifications.  If  it  does  not,  dissimilar 
results  will  occasionally  occur  because  of  the  different  code 
generated  for  various  sending  and  receiving  fields. 

NOTE:  The  other  rules  for  MOVE  CORRESPONDING,  of  course 
must  still  be  satisfied. 

• Numerous  times  a programer  will  read  a record,  MOVE  it 
to  WORKING- STORAGE  and  check  to  see  if  he  needs  that  record.  It 
could  be  possible  that  a very  small  percentage  of  these  records 
are  processed  causing  unnecessary  CPU  time  to  MOVE  these  records 
to  WORKING- STORAGE.  MOVE  statements  with  larger  amounts  of  data 
are  costly  in  terms  of  CPU  time.  The  programer  should  check  to 
see  if  he  needs  a record  prior  to  moving  it  to  WORKING -STORAGE. 
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2.4.9.20  MULTIPLY  STATEMENT. 

FUNCTION . The  MULTIPLY  statement  is  used  to  multiply  one 
numeric  data  item  by  another  numeric  data  item. 


FORMAT. 


Format  1. 
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2.4.9.20  MULTIPLY  STATEMENT. 


(Cont. ) 


SYNTAX  RULES. 


r 

s 


• Each  Identifier  must  refer  to  an  elementary  numeric  item 
except  the  object  of  the  GIVING  option  (identifier-3)  which  may 
be  a numeric-edited  item. 

• Each  literal  must  be  a numeric  literal. 

• The  maximum  size  of  each  operand  is  18  decimal  digits. 
The  maximum  size  of  each  receiving  field,  after  decimal  align- 
ment, is  18  decimal  digits. 

GENERAL  RULES. 

• In  Format  1,  the  value  of  identifier-1  (or  literal-1) 
is  muitiplied  by  the  value  of  identifier-2.  The  value  of  the 
multiplier  (identifier-2)  is  replaced  by  the  result  of  the 
multiplication. 

• In  Format  2,  the  value  of  identifier-1  (or  literal-!) 
is  multiplied  by  identifier-2  (or  literal-2)  and  the  result  is 
stored  in  the  object  of  the  GIVING  option,  identifier-3. 

• The  GIVING,  ROUNDED  and  SIZE  ERROR  options  are  explained 
in  Arithmetic  Options,  PROCEDURE  DIVISION. 

VENDORS'  GUIDELINES. 

• IBM. 


Only  one  identifier  is  allowed  as  the  object  of  the 
GIVING  option. 

I ; 

CSC  GUIDELINES. 

F 

• For  efficient  execution,  MULTIPLY  statements  should  be 
as  simple  as  possible.  Consequently: 

Do  not  use  ON  SIZE  ERROR  unnecessarily.  This  option 
increases  execution  time  and  takes  more  space  whether  a size 
error  exists  or  not. 


i 


I 

] 

I 


J 

I 
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Do  not  use  ROUNDED  if  possible,  for  the  same  reason  as 
above.  To  ADD  5 and  then  MOVE  to  drop  insignificant  digits  is 
more  efficient. 


Use  of  GIVING  option  saves  instructions 


• In  regard  to  the  data  items  specified  as  operands  in 
arithmetic  statements: 


When  they  are  all  defined  with  the  same  USAGE,  the 
relatively  expensive  operation  of  conversion  is  avoided.  This 
does  not  apply  to  display  items  in  the  IBM-360/370.  In  these 
computers,  display  items  must  be  converted  to  packed  decimal 
before  they  can  be  used  arithmetically. 


When,  for  ADD  and  SUBTRACT,  they  are  all  defined  with 
the  same  number  of  decimal  places,  the  relatively  expensive 
operation  of  scaling  is  avoided. 


For  the  IBM-360/370,  when  they  are  defined  small  enough 
so  that  the  operation  does  not  produce  a calculated  result 
greater  than  15  digits  the  expensive  operation  of  double  preci- 
sion arithmetic  is  avoided. 


In  regard  to  a result  item  specified  in  the  GIVING 


When  it  is  defined  with  sufficient  integer  places  to 
provide  for  the  maximum  integer  value  possible,  the  need  for  the 
ON  SIZE  ERROR  clause  is  eliminated. 


When  it  is  defined  with  the  same  number  of  decimal 
places  as  the  calculated  result,  the  relatively  expensive  oper- 
ation of  truncation,  rounding,  or  scaling  (whichever  applies  in 
the  particular  case)  is  avoided. 


When  it  is  defined  with  the  same  USAGE  as  the  calculated 
result,  a conversion  operation  is  avoided. 


For  the  IBM-360/370,  when  it  is  defined  as  signed,  the 
operation  of  removing  the  sign  (which  is  generated  automatically 
by  the  hardware)  is  avoided. 
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For  a packed  decimal  result  item  in  the  IBM-360-370, 
when  it  is  defined  with  an  odd  number  of  digits,  the  operation 
of  setting  the  items  high-order  digit  to  zero  is  avoided.  (When 
a packed  decimal  item  is  defined  with  an  even  number  of  digits, 
an  idiosyncrasy  of  the  hardware  causes  the  storage  assigned  to 
the  item  to  include  one  more  digit  position  than  the  number  of 
digits  defined.  The  compiler  assumes  the  responsibility  of 
making  sure  that  the  extra  0 digit  position  contains  a zero 
whenever  data  is  placed  in  the  item.) 
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2.4.9.21  ON  STATEMENT  (IBM  EXTENSION). 

FUNCTION . The  ON  statement  is  used  to  allow  the  programer 
to  specify  when  the  statements  it  contains  are  to  be  executed. 

FORMAT. 


ON  integer-1  jjlND  EVERY  integer-JJ  QjNTIL  integer-3^ 

f imperative-statement^  f ELSE  f statement  • • • 

| NEXT  SENTENCE  J ^OTHERWISE|  | NEXT  STATEMENT^ 


SYNTAX  RULES.  All  integers  must  be  positive  and  no  greater 
than  16,777,215. 

GENERAI  RULES. 

• The  phrase  ELSE  NEXT  SENTENCE  may  be  omitted  if  it  would 
be  the  last  phrase  in  the  statement.  The  statement  must  be 
terminated  by  a period. 

• The  ON  statement  has  a compiler-generated  counter  with 
it.  This  counter  is  incremented  by  one  and  the  count-condition 
(integer-1  AND  EVERY  integer-2  UNTIL  integer-3)  is  tested  each 
time  it  is  executed. 

If  the  count-condition  is  satisfied,  the  imperative- 
statement  (or  NEXT  SENTENCE)  preceding  ELSE  is  then  executed. 

If  the  count-condition  is  not  satisfied,  the  state- 
ment^) (or  NEXT  SENTENCE)  following  ELSE  is  then  executed. 
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• When  only  integer-1  is  specified,  the  count-condition  is 
satisfied  only  once. 


• When  only  integer-1  and  integer-3  are  specified,  then 
the  value  of  integer-2  is  assumed  to  be  one,  and  the  count- 
condition  is  satisfied  only  when  the  value  of  the  counter  is 
within  the  range  between  integer-1  and  integer-3. 


• When  only  integer-1  and  integer-2  are  specified,  then 
the  count-condition  is  satisfied  each  time  the  value  in  the 
counter  is  equal  to  integer-1  + (integer-2  * k) , where  k is  any 
positive  integer  or  zero. 


• When  all  three  integers  are  specified,  then  the  count- 
condition  is  satisfied  the  same  as  above  except  that  integer-3 
sets  an  upper  limit  for  the  count-condition. 


VENDORS'  GUIDELINES 


The  ON  statement  is  an  IBM  extension  to  the  ANS  COBOL 


CSC  GUIDELINES.  The  ON  statement  is  an  extension  to  ANS 
COBOL  and  should  only  be  used  for  program  debugging. 
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2.4.9.22  OPEN  STATEMENT. 

FUNCTION.  The  OPEN  statement  Initiates  the  processing  of 
input,  output,  and  input-output  files.  It  performs  checking 
and/or  writing  of  labels  and  other  input-output  operations. 

FORMAT. 


OPEN 


SYNTAX  RULES 


• The  file-name  must  be  defined  by  a file  description  entry 
in  the  Data  Division. 


• At  least  one  of  the  options  INPUT,  OUTPUT,  or  1-0  must 
be  specified.  However,  there  must  be  no  more  than  one  instance 
of  each  option  in  the  same  statement,  although  more  than  one 
f il e-name  may  be  used  with  each  option.  These  options  may  appear 
in  any  order. 


GENERAL  RULES 


The  I— 0 option  pertains  only  to  mass  storage  files 


• The  OPEN  statement  must  not  specify  a sort-file,  but  an 
OPEN  statement  must  be  specified  for  all  other  files.  The  OPEN 
statement  for  a file  must  be  executed  prior  to  the  first  READ, 
REWRITE,  or  WRITE  statement  for  that  file.  A file  can  be  opened 


' ile-namo 

r REVERSED  -| 

L WITH  NO  REWIND  J 

J 

rile-name 

JwiTH  NO  REWIND . . ."j 

L e-nan e 

1 1 
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more  than  once.  However,  a second  OPEN  statement  for  a file 
cannot  be  executed  prior  to  the  execution  of  a CLOSE  statement 
for  that  file.  The  OPEN  statement  does  not  obtain  or  release 
the  first  data  record.  A READ  or  WRITE  statement  must  be 
executed  to  obtain  or  release,  respectively,  the  first  data 
record . 


• The  OPEN  statement  causes  the  user's  beginning  label 
subroutine  to  be  executed  if  one  is  specified  by  a USE  sentence 
in  the  Declaratives  Section. 

• When  the  REVERSED  option  is  specified,  subsequent  READ 
statements  for  the  file  make  the  data  records  of  the  file  avail- 
able in  reversed  order;  that  is,  starting  with  the  la9t  record. 

• When  the  REVERSED  option  is  specified,  execution  of  the 
OPEN  statement  causes  the  file  to  be  positioned  at  the  end  of 
the  file. 

• The  1-0  option  permits  the  opening  of  a mass  storage 
file  for  both  input  and  output  operations.  Since  this  option 
implies  the  existence  of  the  file,  it  cannot  be  used  if  the 
mass  storage  file  is  being  initially  created. 

• When  the  1-0  option  is  used,  the  execution  of  the  OPEN 
statement  includes  the  following  steps: 

The  label  is  checked. 

The  user's  label  subroutine,  if  one  is  specified  by  a 
USE  sentence,  is  executed. 

The  label  is  written. 

VENDORS’  GUIDELINES . 

• IBM- 

The  IBM  compiler  allows  the  REVERSED  option  to  be  used 
with  a sequential  multiple  reel  file. 
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When  opening  a file,  under  the  Operating  System  (OS), 
the  NO  REWIND  option  may  have  no  effect  on  file  positioning. 

Any  file  positioning  at  OPEN  time  is  controlled  by  the  operating 
system,  and  the  NO  REWIND  option  may  be  overridden  by  JCL. 

The  DOS  NO  REWIND  option  will  keep  the  file  static  and 
negate  any  positioning  commands  from  the  system. 

The  REVERSED  and  the  NO  REWIND  options  can  be  used  only 
with  a sequential  single  reel  file  or  guideline.  The  REVERSED 
option  cannot  be  used  for  a file  containing  mode  'V'  records. 

If  the  option  is  specified  for  a file  containing  mode 
'U'  records,  doubleword  boundary  alignment  of  the  logical  record 
is  obtained  only  if  the  length  of  the  logical  record  is  divis- 
ible by  eight.  If  there  is  no  doubleword  boundary  alignment  for 
a record  containing  SYNCHRONIZED  items,  the  record  cannot  be 
properly  processed. 

CSC  GUIDELINES. 

• It  is  best  to  specify  as  many  files  in  the  same  OPEN 
statement  as  is  logically  possible.  Although  some  additional 
storage  is  required,  it  is  offset  by  a relatively  significant 
savings  in  execution  time. 

• Execution  of  an  OPEN  statement  for  an  input  file  does 
not  make  the  record-area  in  the  File  Section  available  for  sub- 
sequent operations.  Statements  that  refer  to  the  record  area 
must  not  be  executed  until  a READ  has  been  executed  for  the  file. 

• Execution  of  an  OPEN  for  an  output  file  makes  a record 
area  available.  Therefore,  statements  that  refer  to  the 
record(s)  of  the  file  may  be  executed  after  the  OPEN  and  before 

■ the  first  WRITE. 

• Use  of  1-0  areas  defined  in  FD's  after  CLOSE,  before  an 
OPEN  or  in  the  case  of  an  INPUT  file,  after  OPEN  and  before  READ 
are  prohibited  under  DOS  and  under  OS  MVT.  Conversion  problems 
encountered  when  converting  from  DOS  to  OS  precludes  the  use  of 

I — 0 areas  in  the  cases  cited. 
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FUNCTION.  The  PERFORM  statement  is  used  to  explicitly 
transfer  control  to  one  or  more  procedures  and  to  return  control 
implicitly  whenever  execution  of  the  specified  procedure  is 
complete. 

FORMAT. 

Format  1. 


Format  2. 
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Format  3 


procedure-name-2 


PERFORM  procedure-name-1 


THRU 


index-name-2 

literal-2 

identifier-2 


index-name-1 


FROM 


VARYING 


literal-3 


UNTIL  condition-1 


index-name- 5 
literal-5 
identif ier-5 


index-name-4 


AFTER 


FROM 


identifier-4 


literal-6 


UNTIL  condition-2 


identif ier-6 


index-name-8 
literal-8 
identif ier-8 


index-name-7 


AFTER 


FROM 


identifier-7 


UNTIL  condition-3 


identifier-9 


PERFORM  procedure-name- 1 

THRU  procedure-name-2 

UNTIL  condition-! 

- 
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SYNTAX  RULES. 

• Each  identifier  represents  a numeric  elementary  data 
described  in  the  DATA  DIVISION.  In  Format  2,  identifier-I  must 
be  described  as  a numeric  integer. 

• Each  literal  represents  a numeric  literal. 

• If  an  index-name  is  specified  in  the  VARYING  or  AFTER 
phrase,  the  following  applies: 

The  identifier  in  the  associated  FROM  and  BY  phrases 
must  be  an  integer  data  item. 

The  literal  in  the  associated  FROM  phrase  must  be  a 
positive  integer. 

The  literal  in  the  associated  BY  phrase  must  be  a non- 
zero integer. 

• If  an  index-name  is  specified  in  the  FROM  phrase,  the 
following  applies: 

The  identifier  in  the  associated  VARYING  or  AFTER  phrase 
must  be  an  integer  data  item. 

The  identifier  in  the  associated  BY  phrase  must  be  an 
integer  data  item. 

The  literal  in  the  associated  BY  phrase  must  be  an 

integer. 

• The  literal  in  the  BY  phrase  must  not  be  zero. 

GENERAL  RULES. 

• An  identifier  in  the  BY  option  must  not  have  a zero 
value. 

• If  an  index-name  is  specified  in  the  VARYING  or  AFTER 
option,  and  an  identifier  is  specified  in  the  associated  BY 
option,  the  identifier  must  have  a positive  value. 
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2.4.9.23  PERFORM  STATEMENT.  (Cont.) 

• The  THRU  option  will  be  used  in  all  cases  except  when 
procedure-1  refers  to  the  section-name.  In  this  case,  the  THRU 
option  may  or  may  not  be  used. 

• When  the  PERFORM  statement  is  executed,  control  is  trans- 
ferred to  the  first  statement  of  the  procedure  named  procedure- 
name-1.  An  implicit  transfer  of  control  to  the  next  executable 
statement  following  the  PERFORM  statement  is  established  as 
follows: 


If  procedure-name- 1 is  a section-name  and  procedure- 
name-2  is  not  specified,  then  the  return  is  after  the  last  state- 
ment of  the  last  paragraph  in  procedure-name- 1 . 

If  procedure-name-2  is  specified  and  is  a paragraph-name, 
then  the  return  is  after  the  last  statement  of  the  paragraph. 

If  procedure-name-2  is  specified  and  it  is  a section- 
name,  then  return  is  after  the  last  statement  of  the  last 
paragraph  in  that  section. 

• There  is  no  relationship  between  procedure-name-1  and 
procedure-name-2  except  that  a consecutive  sequence  of  operations 
is  to  be  executed  beginning  at  procedure-name- 1 going  through 
procedure-name-2 . 

GO  TO  and  PERFORM  statements  may  occur  between  procedure- 
•name-1  and  the  end  of  procedure-name-2. 

If  there  is  more  than  one  logical  path  to  the  return 
point,  procedure-name-2  must  be  the  name  of  a paragraph  consist- 
ing of  an  EXIT  statement,  to  which  all  of  these  paths  must  lead. 

• If  control  is  passed  to  any  procedures  within  the  range 
of  the  PERFORM  by  means  other  than  the  execution  of  the  PERFORM 
statement,  the  PERFORM  statements  are  ignored  and  control  passes 
normally  thi.  ugh  the  last  statement  of  the  procedures. 

• Format  1 is  the  basic  FERFORM  statement.  The  procedure 
referred  to  by  the  PERFORM  Is  executed  once  and  then  control 
passes  to  the  next  executable  statement  following  the  PERFORM 
statement . 
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• In  Format  2,  the  procedures  are  performed  the  number  of 
times  specified  by  integer-1  or  identifier-1. 

If,  at  the  time  of  execution  of  the  PERFORM  statement, 
the  value  of  identifier-1  or  integer-1  is  zero  or  negative,  con- 
trol passes  to  the  statement  following  the  PERFORM  statement. 

Once  the  PERFORM  statement  has  been  initiated,  any 
references  to  identifier-1  cannot  alter  the  number  of  times  the 
procedures  are  to  be  executed. 

• In  Format  3,  the  specified  procedures  are  performed  until 
the  condition  specified  by  the  UNTIL  option  is  used. 

When  the  condition  is  true,  control  is  passed  to  the 
statement  following  the  PERFORM  statement. 

If  the  condition  is  true  when  the  PERFORM  statement  is 
encountered,  the  specified  procedures  are  not  executed. 

• In  Format  A,  the  values  of  identifiers  and/or  index-names 
are  updated  in  an  orderly  fashion  during  the  execution  of  the 
PERFORM  statement. 

References  to  identifier  as  the  object  of  the  VARYING, 
AFTER  and  FROM  options  also  refers  to  index-name. 

When  an  index-name  is  used,  it  is  initialized  and  updated 
by  the  Format  A options  of  the  PERFORM  according  to  the  rules  of 
the  SET  statement. 

• When  one  identifier  is  varied,  the  following  sequence 
occurs: 

Identifier-1  is  set  equal  to  its  starting  value 
(identifier-2  or  literal-2). 

If  condition-1  is  false,  procedure-name- 1 through 
procedure-name-2  is  executed  once. 

The  value  of  identifier-1  is  updated  by  the  increment  or 
decrement  value  of  identifier-3  (or  literal-3)  and  condition-1  is 
retested . 
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The  preceding  two  steps  are  repeated  until  condition-1 
is  true.  At  this  point,  control  is  transferred  to  the  next 
executable  statement  following  the  PERFORM  statement. 

If  condition-1  is  true  when  the  PERFORM  statement  is 
encountered,  the  procedures  are  not  executed  and  control  passes 
directly  to  the  next  executable  statement  after  the  PERFORM 
statement. 

FIGURE  2-26  (page  2-250)  is  a flowchart  for  the  VARYING 
option  of  the  PERFORM  statement  having  one  condition. 

• When  two  identifiers  are  varied,  the  following  sequence 
occurs . 


Identifier-1  and  identifier-4  are  set  to  their  respective 
initial  values  (identif ier-2/literal-2  and  identifier-5/ 
literal-5) . 

Condition-1  is  evaluated.  If  true,  control  is  passed 
to  the  next  executable  statement  following  the  PERFORM  statement. 
If  false,  condition-2  is  evaluated. 

If  condition-2  is  false,  procedure-name- 1 through 
procedure-name-2  is  executed. 

Identifier-4  is  updated  by  identifier-6  (or  literal-6) 
and  condition-2  is  reevaluated. 

If  condition-2  is  false,  the  preceding  two  steps  are 
repeated . 

If  condition-2  is  true,  identifier-4  is  set  to  its 
initial  value  (identifier-5). 

Identifier-1  is  updated  by  identifier-3  (literal-3). 

The  cycle  of  the  preceding  six  steps  is  repeated  until 
condition-1  is  true. 

If  condition-1  was  true  when  the  PERFORM  was  encountered, 
identifier-1  and  identifier-4  contain  their  initial  values. 
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FIGURE  2-27  (page  2-252)  is  a flowchart  for  the 
VARYING  option  of  the  PERFORM  statement  having  two  conditions. 

• When  three  identifiers  are  varied,  the  following 
sequence  occurs: 

The  mechanism  is  the  same  as  for  two  identifiers  except 
that  identifier-7  goes  through  the  complete  cycle  each  time 
that  identifier-A  is  updated  by  identifier-6  (literal-6)  which 
in  turn  goes  through  a complete  cycle  each  time  identifier-1  is 
varied . 

FIGURE  2-28  (page  2-253)  is  a flowchart  for  the 
VARYING  option  of  the  PERFORM  statement  having  three  conditions. 

• If  a sequence  of  statements  referred  to  by  a PERFORM 
statement  includes  another  PERFORM  statement,  the  sequence  of 
procedures  associated  with  the  included  PERFORM  must  itself 
either  be  totally  included  in,  or  totally  excluded  from,  the 
logical  sequence  referred  to  by  the  first  PERFORM.  Thus,  an 
active  PERFORM  statement  initiated  within  the  range  of  another 
PERFORM  statement  must  not  allow  control  to  pass  to  the  exit  of 


the  first  PERFORM  statement.  Two  or  more  such  active  PERFORM 
statements  may  not  have  a common  exit. 
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2.4.9.23  PERFORM  STATEMENT.  (Cont.) 


ENTRANCE 


Set  identifier-1  and 
identifier-4  to  current 
FROM  values 


Condition- 
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• A PERFORM  Initiated  within  the  range  of  an  active 
PERFORM  cannot  allow  control  to  pass  to  the  exit  of  the  first 
PERFORM  statement . 
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• Refer  to  RESTRICTION  ON  PERFORM  STATEMENTS,  COBOL 
SEGMENTATION  FACILITY. 

VENDORS*  GUIDELINES.  None. 

CSC  GUIDELINES. 

• Groups  of  procedural  statements  that  are  frequently  exe- 
cuted in  an  object  program  should  be  executed  using  the  PERFORM 
mechanism.  This  technique  reduces  the  size  of  the  object 
program  and  also  organizes  the  program  in  a way  that  can  improve 
the  program  documentation  and  facilitate  its  maintenance.  The 
grouping  of  input-output  procedures  into  subroutines  called  by 
PERFORM  statements  is  especially  useful. 

• Always  execute  the  last  statement  of  a series  of  rou- 
tines being  operated  on  by  a PERFORM  statement.  When  branching 
out  of  the  routine,  make  sure  control  will  eventually  return  to 
the  last  statement  of  the  routine.  This  statement  should  be  an 
EXIT  statement.  Although  no  code  is  generated,  the  EXIT  state- 
ment allows  a programer  to  immediately  recognize  the  extents  of 
a series  of  routines  within  the  range  of  a PERFORM  statement. 

• Always  either  PERFORM  with  the  THRU  option,  or  PERFORM 
section-name.  A PERFORM  paragraph-name  can  cause  trouble  for 
the  programer  trying  to  maintain  the  program.  For  example,  if 
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2.4.9.23  PERFORM  STATEMENT.  (Cont.) 

a paragraph  must  be  broken  Into  tvo  paragraphs,  the  programer 
must  examine  every  statement  to  determine  whether  or  not  this 
paragraph  is  written  the  range  of  a PERFORM  statement.  Then  all 
statements  referencing  the  paragraph-name  must  be  changed  to 
PERFORM  THRU  statements. 

• Only  PERFORM  A THRU  A-EXIT  not  PERFORM  A THRU  C-EXIT  when  using 
structured  programing  techniques.  PERFORM  statement  should  never  in- 
clude a range  of  paragraphs. 
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2.4.9.24  READ  STATEMENT. 

FUNCTION . The  READ  statement  makes  available  the  next 
logical  record  from  an  Input  file. 

FORMAT. 

Format  1. 


READ  file-name  RECORD 


pENTO  Identifier 


] 


AT  END  imperative-statement 


Format  2. 


READ  file-name  RECORD  j^INTO  identifier 
INVALID  KEY  imperative-statement 


0 


SYNTAX  RULES. 


• The  INTO  phrase  must  not  be  used  when  the  input  file 
contains  variable-length  records.  The  storage  area  associated 
with  identifier  and  the  record  area  associated  with  file-name 
must  not  be  the  same  area. 

• The  AT  END  phrase  must  be  specified  for  sequential  files. 

• For  RANDOM  or  INDEXED-SEQUENTIAL  files,  Format  2 is  used. 


f 
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2.4.9.24  READ  STATEMENT.  (Cont.) 

GENERAL  RULES. 

• The  file-name  must  be  defined  by  a file  description  entry 
in  the  DATA  DIVISION. 

• An  OPEN  statement  must  be  executed  for  the  file  prior  to 
the  first  READ  of  that  file.  This  positions  the  current  record 
pointer  to  the  beginning  of  the  file. 

• Execution  of  a READ  statement  causes  the  current  record 
pointer  to  point  to  the  next  existing  record  in  the  file.  This 
record  is  made  available  to  the  program  in  the  input  area  defined 
by  the  associated  record  description  entry. 

• In  Format  2,  the  record  the  READ  makes  available  is  a 
function  of  the  organization  of  the  file  and  of  the  key  fields 
associated  with  it. 

• If  a file  contains  more  than  one  type  of  logical  record, 
these  records  automatically  share  the  same  storage  area  by 
implicit  redefinition  of  the  01-level  record  descriptions. 

• Only  information  present  in  the  current  record  is  acces- 
sible. No  reference  can  be  made  by  a PROCEDURE  DIVISION  state- 
ment to  information  beyond  the  current  record.  Unpredictable 
results  will  result  from  referencing  the  nth  occurrence  of  data 
that  occurs  fewer  than  n times. 

• The  record  remains  in  the  input  area  until  the  next  READ 
for  that  file  is  executed. 

a When  the  INTO  option  is  specified,  the  following  rules 
apply: 


^Identifier  must  be  a WORKING-STORAGE  SECTION  entry,  a 
LINKAGE  ^SECTION  entry,  or  an  output  record  in  the  FILE  SECTION. 
If  identifier  is  an  output  record,  its  associated  file  must 
have  been  opened  before  the  READ  was  executed. 

This  option  acts  as  a combination  READ  statement  and 
MOVE  statement.  The  record  is  read  then  moved  from  the  record 
area  to  the  identifier  area.  Any  subscripting  or  indexing 
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associated  with  the  identifier  is  evaluated  after  the  record  is 
read  and  immediately  before  it  is  moved  into  the  area  associated 
with  the  identifier. 

Data  is  moved  according  to  the  COBOL  rules  for  the  MOVE 
statement. 

The  record  being  read  is  available  in  both  the  input 
record  area  and  the  area  defined  by  identifier. 

• In  a multi-volume  file,  if  the  end  of  a volume  (tape  reel 
or  mass  storage  unit)  is  detected  during  the  execution  of  a READ 
statement,  and  the  logical  end  of  the  file  has  not  been  reached, 
the  following  occurs: 

The  standard  ending  label  procedures  are  executed. 

A volume  switch  is  executed. 

The  standard  beginning  label  procedures  are  executed. 

The  first  data  record  of  the  new  volume  is  made  available. 

• When  the  last  logical  record  in  a file  has  been  read,  the 
next  READ  attempted  for  that  file  produces  an  end-of-file 
condition. 

Control  is  passed  to  the  imperative-statement  associated 
with  the  AT  END  phrase. 

The  contents  of  the  input  record  area  is  now 
unpred lc table. 

Another  READ  cannot  be  executed  for  that  file  without  an 
intervening  CLOSE  statement  followed  by  an  OPEN  statement  for 
that  file. 

VENDORS'  GUIDELINES.  None. 

o 

o 
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CSC  GUIDELINES. 

• The  number  of  READ  statements  should  be  minimized;  nor- 
mally only  one  per  file  is  required.  The  technique  to  effect 
this  is  to  code  the  READ  as  a separate  procedure  and  to  PERFORM 
it  whenever  the  READ  operation  is  required. 

• For  a file  with  several  types  of  records  (multiple  01 
record  descriptions)  the  type  of  record  read  should  be  deter- 
mined immediately  after  the  READ  has  been  accomplished.  Remember 
that  only  one  logical  record  at  a time  is  available  (not  one 
record  of  each  type) . 

• After  end-of-file  has  been  encountered,  the  execution  of 
statements  that  refer  to  the  area  record  of  the  file  must  be 
avoided,  because  no  record  is  available  to  refer  to. 

• Never  execute  a READ  statement  for  a file  on  which  end- 
of-file  has  been  detected,  unless  it  has  been  subsequently 
closed  and  reopened  as  input. 

• The  primary  reason  for  using  the  READ  INTO  option  of  the 
READ  statement  is  as  follows: 

Ease  of  debugging  programing  errors.  It  is  far  easier  to 
determine  which  record  in  a file  is  being  processed  when  that 
record  is  to  be  found  in  the  WORKING-STORAGE  of  a program. 
Determining  which  record  is  the  current  one  when  processing  in 
the  buffers  of  a blocked  file  requires  an  extreme  amount  of 
expertise  and  is  time-consuming. 

Avoidance  of  system  problems.  The  IBM  OS  MVT  operating 
system  takes  away  the  program's  buffers  immediately  after  the  at- 
end  condition  has  been  detected  for  any  file.  This  forces  the 
program  to  avoid  all  tests  of  data  in  the  buffer  areas.  Better 
programing  practice  is  the  READ... INTO  a WORKING-STORAGE  area, 
setting  some  condition  in  the  area  (such  as  moving  HIGH-VALUES  to 
the  area)  when  the  end-of-file  condition  is  detected.  The  pro- 
gramer’s  only  alternative  in  a situation  where  two  files  are 
being  bounced  together  for  comparison  is  to  resort  to  use  of 
switches  or  separate  blocks  of  code  specifically  for  the  after- 
at-end  conditions.  Neither  is  normally  desirable  as  a standard 
programing  practice. 
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2.4.9.25  READY  TRACE  STATEMENT  (IBM  EXTENSION). 

FUNCTION.  The  READY  TRACE  statement  causes  the  display  of 
the  compiler  generated  line  number  each  time  execution  of  a 
paragraph  or  section  begins. 

FORMAT. 


READY  TRACE 


SYNTAX  RULES.  None. 

GENERAL  RULES.  A maximum  logical  record  size  of  1 20  bytes 
is  assumed. 

VENDORS*  GUIDELINES.  IBM.  The  READY  TRACE  statement  is  an 
IBM  extension  to  the  ANS  COBOL  specifications. 

CSC  GUIDELINES.  READY  TRACE  verb  is  to  be  used  as  a debug- 
ging aid.  READY-TRACE  is  to  be  used  only  as  a program  develop- 
ment debugging  aid  with  very  small  numbers  of  test  conditions. 
In  no  case  will  it  be  used  in  a production  program  with  live 
files.  Refer  to  "Debugging  Aids"  section  for  additional 
guidance. 


. ^ 
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2. A. 9. 26  RELEASE  STATEMENT. 

FUNCTION . The  RELEASE  statement  transfers  records  from 
input  procedure  to  the  input  phase  of  the  sort  operation, 
to  "SORT  FEATURES"  in  "Special  Features"  section. 


an 

Refer 
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2.4.9.27  RESET  TRACE  STATEMENT  (IBM  EXTEI'S  ~0N)  . 

FUNCTION . The  RESET  TRACE  statement  terminates  the 
functions  of  a READY  TRACE  statement. 

FORMAT. 


RESET  TRACE 


SYNTAX  RULES.  None. 

GENERAL  RULES.  A maximum  logical  record  size  of  120  bytes 
is  assumed. 

VENDORS'  GUIDELINES.  IBM.  The  RESET  TRACE  statement  is  an 
IBM  extension  to  the  ANS  COBOL  specifications. 

CSC  GUIDELINES.  RESET  TRACE  should  be  used  as  a debugging 
aid  only. 
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2.4.9.28  RETURN  STATEMENT. 

FUNCTION.  The  RETURN  statement  obtains  individual  recor-j 
in  sorted  order  from  the  final  phase  of  the  SORT.  Refer  to 
"SORT  FEATURES"  in  "Special  Features"  section. 
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2.4.9.29  REWRITE  STATEMENT. 

FUNCTION.  The  REWRITE  statement  logically  replaces  a record 
existing  in  a mass  storage  file. 

FORMAT. 


REWRITE  record-name  FROM  identifier 


SYNTAX  RULES. 

• Record-name  and  identifier  must  not  refer  to  the  same 
storage  area. 

• Record-name  is  the  name  of  a logical  record  in  the  FILE 
SECTION  of  the  DATA  DIVISION. 

GENERAL  RULES. 

• The  file  associated  with  record-name  must  be  a mass 
storage  file  and  must  be  open  in  the  1-0  mode  at  the  time  this 
file  is  executed. 

• A READ  statement  for  the  file  must  be  executed  before 
the  REWRITE  statement  for  that  file  can  be  executed. 

• The  number  of  character  positions  in  the  record  refer- 
enced by  record-name  must  be  equal  to  the  number  of  character 
positions  in  the  record  being  replaced. 

• After  the  execution  of  the  REWRITE  statement,  the  logi- 
cal record  that  was  rewritten  is  no  longer  available  in  the 
record  area. 

• The  FROM  option  makes  this  statement  equivalent  to  a 
MOVE  identifier  TO  record-name  statement  followed  by  a REWRITE 
statement. 


' 
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• The  REWRITE  statement  must  be  used  with  caution  since 
the  original  record  is  not  available  after  its  execution.  The 
user  must  provide  some  form  of  backup  capability  for  files  that 
are  being  rewritten. 

VENDORS*  GUIDELINES.  None. 

CSC  GUIDELINES.  None. 
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2.4.9.30  SEARCH  STATEMENT. 

FUNCTION . The  SEARCH  statement  is  used  to  search  a table 
for  an  element  that  satisfies  a specified  condition  and  to 
adjust  the  associated  index-name  to  indicate  that  table  element. 
Refer  to  "Table  Handling  Feature"  in  "Special  Features"  section. 
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2.4.9.31  SET  STATEMENT. 

FUNCTION.  The  SET  statement  establishes  reference  points 
for  table  handling  operations  by  setting  Index-names  to  values 
associated  with  table  elements.  The  SET  statement  is  used  for 
initializing  index-name  values  before  executing  a SEARCH  state- 
ment or  transferring  values  between  index-names  and  other 
elementary  data  items.  Refer  to  "Table  Handling  Feature"  in 
"Special  Features"  section. 
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2.4.9.33  START  STATEMENT. 

FUNCTION.  The  START  statement  provides  a basis  for  logical 
positioning  within  an  Indexed  or  relative  file,  for  subsequent 
sequential  retrieval  of  records. 

FORMAT. 


START  file-name  INVALID  KEY  imperative-statement 


SYNTAX  RULES. 

• File-name  must  be  the  name  of  an  indexed  or  relative 

file. 

• File-name  must  be  the  name  of  a file  with  sequential  or 
dynamic  access. 

• File-name  must  not  be  the  name  of  a sort  or  merge  file. 

• File-name  must  be  defined  by  a file  description  entry 
in  the  DATA  DIVISION. 

GENERAL  RULES. 

• Normally,  an  indexed  file  in  the  sequential  mode  is 
processed  sequentially  from  the  first  record  to  the  last  or  until 
the  file  is  closed.  If  processing  is  to  begin  at  other  than  the 
first  record,  a START  statement  must  be  executed  after  the  OPEN 
but  before  the  first  READ  statement.  Processing  will  then  con- 
tinue sequentially  until  a START  statement  or  a CLOSE  statement 
is  executed  or  until  the  end-of-file  is  reached. 

• If  processing  is  to  begin  at  the  first  record,  a START 
statement  is  not  required  before  the  first  READ. 
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• The  contents  of  the  NOMINAL  KEY  are  used  as  the  key 
value  of  the  record  at  which  processing  is  to  begin.  In  this 
instance,  this  key  value  must  be  placed  in  the  data-name  speci- 
fied by  the  NOMINAL  KEY  clause  for  this  file  before  the  START 
statement  is  issued. 

s When  the  INVALID  KEY  option  is  specified,  control  is 
passed  to  the  imperative-statement  following  INVALID  KEY  when 
the  contents  of  the  NOMINAL  KEY  field  are  invalid.  The  key  is 
considered  Invalid  when  the  record  is  not  found  in  the  file. 

VENDORS'  GUIDELINES.  None. 


CSC  GUIDELINES.  None. 
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2.4,9.34  ST()P  STATEMENT . 

FUNCTION.  The  STOP  statement  causes  a permanent  or  tempo- 
rary suspension  of  the  execution  of  the  object  program.  Data 
may  be  displayed  upon  the  CONSOLE  but  the  use  of  SYSLST  or 
SYSOUT  is  preferred. 

FORMAT. 


SYNTAX  RULES.  Both  the  STOP  RUN  and  the  STOP  literal  state- 
ment must  be  followed  by  a period. 

GENERAL  RULES. 

• When  the  STOP  RUN  statement  is  executed,  processing  of 
the  problem  program  is  immediately  terminated  and  control  is 
returned  to  the  operating  system. 

• The  STOP  RUN  statement  must  appear  as  the  only,  or  the 
last,  imperative  statement  in  a series  of  statements  within  a 
paragraph  as  no  further  processing  will  occur  after  its 
execution. 

• When  the  STOP  literal  statement  is  executed,  the  infor- 
mation in  the  literal  portion  of  the  statement  is  displayed  on 
the  system  logical  output  device.  The  problem  program  is  then 
placed  in  a temporary  suspension  of  execution  mode,  and  may  be 
restarted  by  the  operator  as  dictated  by  system  specifications. 

• The  STOP  literal  statement  may  be  placed  at  any  point 
within  the  logical  flow  cf  a problem  program.  Once  the  program 
is  restarted  by  the  operator,  execution  will  continue  with  the 
next  sequential  instructions. 


o 
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VENDORS'  GUIDELINES. 

• IBM. 

The  statement  STOP  RUN  should  not  be  used  in  a sub- 
program. In  this  case,  control  will  not  return  to  the  main 
program,  but  will  go  directly  to  the  operating  system  and  ter- 
minate the  entire  job. 

The  contents  of  the  literal  portion  of  the  STOP  literal 
statement  are  displayed  on  the  system  console,  then  the  program 
goes  into  a temporary  halt  condition.  The  operator  restarts 
the  problem  program  by  keying  in  an  end-of-block  indication  for 
that  program  (EOB  key).  As  no  other  information  is  entered  by 
the  operator,  this  is  the  most  efficient  and  least  error-prone 
method  of  effecting  a temporary  halt  in  a user  program  control. 

CSC  GUIDELINES. 

• There  should  be  only  one  STOP  RUN  statement  in  a pro- 
gram, and  it  should  be  the  last  entry  in  the  program's  logical 
flow.  Ideally,  it  should  be  coded  as  a single  sentence  para- 
graph. The  program  would  then  either  fall  through  into  it  in 
the  case  of  a completely  normal  processing  run  or  GO  TO  it  in 
the  case  of  an  other  than  normal  processing  run.  If  there  are 
certain  tasks  that  must  always  be  executed  before  the  RUN  STOP 
can  be  executed,  those  tasks  may  also  be  included  in  the  same 
paragraph,  placed  before  the  STOP  RUN  statement.  An  example 
is  a file  CLOSE  statement  that  must  always  be  executed.  It 
should  be  coded  only  once,  and  the  logical  place  for  it  to  be 
placed  is  in  the  paragraph  with  the  STOP  RUN. 

• All  open  files  must  be  closed  before  the  STOP  RUN  state- 
ment is  executed.  OS  will  close  all  open  files  itself,  but  does 
so  in  a very  inefficient  fashion,  after  much  time  delay.  DOS 
will  not  close  files  left  open,  causing  probable  error  condi- 
tions in  later  processing  of  those  files. 

• Due  to  its  greater  efficiency  and  lesser  chance  for 
error,  the  STOP  literal  statement  should  always  be  used  if 
possible  in  preference  to  the  combination  of  a DISPLAY .. .UPON 
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CONSOLE  followed  by  ACCEPT ...  FROM  CONSOLE  to  effect  a program- 
controlled  temporary  halt  In  processing.  Program  halts  of 
either  kind,  though,  should  be  avoided  whenever  another  method 
can  be  employed  to  achieve  the  same  effect. 
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2.4.9.35  SUBTRACT  STATEMENT. 

FUNCTION.  The  SUBTRACT  statement  is  used  to  subtract  one, 
or  the  sum  of  two  or  more,  numeric  data  items  from  another  data 
item. 

FORMAT. 

Format  1. 


SUBTRACT 


j identifier- 1] 
1 literal-1 


identifier- 
literal-2 


2 


FROM  identifier-m 


|1ioundedJ 


£,  identifier-n  ^ROUNDED 


d|  ...I"  ;0N  SIZE  ERROR  "1 
-JJ  imperative-statement 


Format  2 
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SYNTAX  RULES. 

• Each  identifier  must  refer  to  an  elementary  numeric  data 
item  except  the  object  of  the  GIVING  option  (identif ier-n)  which 
may  be  a numeric-edited  data  item. 

• Each  literal  must  be  a numeric  literal. 

• The  maximum  size  of  each  operand  is  18  digits.  The  maxi- 
mum size  of  the  result,  after  decimal  alignment,  is  18  digits. 

GENERAL  RULES. 

• In  Format  1,  all  identifiers  or  literals  preceding  the 
word  FROM  are  added  together,  and  this  total  is  subtracted  from 
identifier-m,  ( identif ier-n,  etc.).  The  result  of  the  subtrac- 
tion is  stored  as  the  new  value  of  identifier-m  (identif ier-n, 
etc.) . 

• In  Format  2,  all  identifiers  or  literals  preceding  the 
word  FROM  are  added  together,  and  this  total  is  subtracted  from 
identifier-m.  The  result  of  the  subtraction  is  stored  in  the 
object  of  the  GIVING  option,  identif ier-n. 

• The  GIVING,  ROUNDED,  and  SIZE  ERROR  options  are 
explained  in  Arithmetic  Options  - PROCEDURE  DIVISION. 

VENDORS'  GUIDELINES. 

• IBM- 

In  Format  2,  only  one  operand  is  permitted  as  the  object 
of  the  GIVINC  clause. 

CSC  GUIDELINES. 


• For  efficient  execution  and  ease  of  maintenance,  SUBTRACT 
statements  should  be  as  simple  as  possible. 

Do  not  use  ON  SIZE  ERROR  unnecessarily.  This  option 
increases  execution  time  and  takes  more  space  whether  a size 
error  exists  or  not. 
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Do  not  use  ROUNDED  unnecessarily,  for  Che  same  reasons 
as  above.  To  ADD  5 and  Chen  MOVE  Co  drop  lnsignif icanC  digiCs 
is  more  efflclenC. 

Avoid  using  more  chan  Chree  operands  before  Che  word 

FROM. 


• In  K£gard  Co  Che  daca  iCems  specified  as  operands  in 
ariChmeCic  scacemencs: 

When  chey  are  all  defined  wich  Che  same  USAGE,  Che  rela- 
cively  expensive  operacion  of  conversion  is  avoided.  This  does 
noC  apply  Co  display  iCems  in  Che  IBM- 360/370.  In  Chese  com- 
puctfrs , display  iCems  muse  be  converced  Co  packed  decimal  before 
Chey  can  be  used  arichmecically . 

When,  for  ADD  and  SUBTRACT,  Chey  are  all  defined  wich 
Che  same  number  of  decimal  places,  Che  relaCively  expensive 
operacion  of  scaling  is  avoided. 

• In  regard  Co  a resulc  icem  specified  in  Che  GIVING 
clause: 


When  ic  is  defined  wich  sufficienC  inceger  places  co 
provide  for  Che  maximum  inceger  value  possible,  Che  need  for  Che 
ON  SIZE  ERROR  clause  is  eliminaced. 

When  ic  is  defined  wich  Che  same  number  of  decimal 
places  as  Che  calculaCed  resulc,  Che  relaCively  expensive  oper- 
acion of  CruncaCion,  rounding,  or  scaling  (whichever  applies  in 
Che  parcicular  case)  is  avoided. 

When  ic  is  defined  wich  Che  same  USAGE  as  Che  calcu- 
laCed resulc,  a conversion  operacion  is  avoided. 

For  Che  IBM-360/370,  when  ic  is  defined  as  signed,  Che 
operacion  of  removing  Che  sign  (which  is  generaced  auComacically 
by  Che  hardware)  is  avoided. 

For  a packed  decimal  resulc  iCera  in  Che  IBM-360/370, 
when  ic  is  defined  wich  an  odd  number  of  diglcs,  Che  operacion 
of  seccing  Che  iCems  high  order  digiC  Co  zero  is  avoided.  (When 
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a packed  decimal  item  Is  defined  with  an  even  number  of  digits, 
an  idiosyncrasy  of  the  hardware  causes  the  number  of  digits 
defined.  The  compiler  assumes  the  responsibility  of  making  sure 
that  the  extra  0 digit  position  contains  a zero  whenever  data  is 
placed  in  the  item.) 


2.4.9.36  USE  STATEMENT 


FUNCTION 


• The  USE  statement  is  part  of  the  DECLARATIVE  Section 
which  provides  a method  of  including  procedures  that  are  invoked 
nonsynchronously;  that  is,  they  are  executed  not  as  part  of  the 
sequential  coding  but  rather  when  a condition  occurs  which  can- 
not normally  be  tested  by  the  programer. 


• Format  1 USE  sentence  specifies  procedure  to  be  followed 
if  an  input/output  error  occurs  during  file  processing. 

• Format  2 is  used  to  provide  user  label-handling 
procedures . 


FORMAT 


f ile-name-1 

INPUT 

OUTPUT 


file-name-2 


USE  AFTER  STANDARD  ERROR  PROCEDURE  ON 


[ GIVING  data-name-1  (data-name-2)  ] (IBM  Extension  to  ANS  COBOL) 


BEFORE 


BEGINNING 


REEL 

FILE 

UNIT 


STANDARD 


AFTER 


ENDING 


f Ile-name-1 
INPUT 
OUTPUT 
1-0 


file-name-2 


LABEL  PROCEDURE  ON 


mam 

■ A 

esses 

Sj 

SSm 

CSCM  18-1-1 


1 FEB  79 


2.4.9.36  USE  STATEMENT.  (Cont.) 
SYNTAX  RULES. 


• A USE  statement,  when  present,  must  Immediately  follow 
a section  header  in  the  DECLARATIVES  Section  and  must  be 
followed  by  a period  followed  by  a space.  The  remainder  of  the 
section  must  consist  of  zero,  one  or  more  procedural  paragraphs 
that  define  the  procedures  to  be  used. 

• If  the  file-name  phrase  is  used  as  a part  of  Format  2, 
the  File  Description  entry  for  file-name-1,  file-name-2,  ..., 
must  not  specify  a LABEL  RECORDS  ARE  OMITTED  clause. 

• The  USE  statement  itself  is  never  executed;  it  merely 
defines  the  conditions  calling  for  the  execution  of  the  USE 
procedures. 

• If  the  words  BEGINNING  or  ENDING  are  not  specified  in 
Format  2,  the  designated  procedures  are  executed  for  both  begin- 
ning and  ending  labels.  If  neither  the  UNIT,  REEL,  nor  FILE 
phrase  is  specified,  the  designated  procedures  are  executed  for 
both  reel  or  unit,  whichever  is  appropriate,  and  file  labels. 

The  UNIT  phrase  is  not  applicable  to  files  in  the  random  access 
mode. 


• No  file-name  may  reference  a sort  or  merge  file. 

GENERAL  RULES. 

• The  designated  procedures  are  executed  by  the  input- 
output  system  at  the  appropriate  time  as  follows: 

In  Format  1,  after  completing  the  standard  input-output 
error  routine,  or  upon  recognition  of  the  INVALID  KEY  or  AT  END 
conditions,  when  the  INVALID  KEY  phrase  or  AT  END  phrase, 
respectively,  has  not  been  specified  in  the  input-output 
statement. 

In  Format  2,  before  or  after  beginning  or  ending 
input  label  checking  is  executed. 

1.  Before  a beginning  or  ending  output  label  is  created. 
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2.  After  a beginning  or  ending  output  label  is  created, 
but  before  it  is  written. 

3.  Before  or  after  beginning  or  ending  input-output 
label  checking  is  executed. 

• In  Format  2,  if  the  USE  statement  specifies  a phrase 
other  than  the  file-name- 1 phrase,  references  in  that  USE  pro- 
cedure to  common  label  items  need  not  be  qualified  by  a file- 
name. A common  label  item  Is  an  elementary  data  item  that 
appears  in  every  label  record  defined  in  the  program,  but  at 
the  same  time,  does  not  appear  in  any  data  record  defined  in 
this  program.  Furthermore,  a common  label  item  must  have  the 
same  name,  description,  and  relative  position  in  every  label 
record.  The  USE  procedures  do  not  apply  to  files  that  are 
described  with  the  LABEL  RECORDS  ARE  OMITTED  clause. 

• After  execution  of  a Format  1 USE  procedure,  control 
is  returned  to  the  invoking  routine. 

• Within  a USE  procedure,  there  must  not  be  any  reference 
to  any  nondeclarative  procedures.  Conversely,  in  the  non- 
declarative portion  there  must  be  no  reference  to  procedure- 
names  that  appear  in  the  declarative  portion,  except  that 
PERFORM  statements  may  refer  to  a USE  statement  having  Formats 
1,  2 or  to  the  procedures  associated  with  such  a USE  statement. 

• In  the  statements  of  the  out-of-line  procedures,  the 
execution  of  a PERFORM  statement  affects  that  particular  pro- 
cessing cycle  only;  that  is,  any  other  asynchronous  process- 
ing cycle  in  the  out-of-line  set  of  procedural  statements  is 
not  affected  by  another  concurrent  processing  cycle  in  which  a 
PERFORM  statement  is  executed. 

VENDORS'  GUIDELINES.  The  GIVING  option  of  'USE  AFTER 
STANDARD'  option  is  an  IBM  extension  to  the  USE  verb.  In  addi- 
tion, the  format  for  data-name-1  and  data-name-2  are  different 
depending  on  if  DOS  or  OS  systems  are  used. 

• IBM  OS. 

Data-name-1  under  OS  consists  of  a 136-byte  record  with 
the  format  shown  on  FIGURE  2-29  (page  2-282). 
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Byte 

Information 

0-11 

System  use 

12-13 

Number  of  bytes  In  error  block  (In  binary)  or  blank 

14-48 

Blanks 

49 

1 

50-57 

Jobname 

58 

» 

59-66 

Stepname 

t 

67 

68-70 

Unit  address 

71 

« 

72-73 

Device- type 

74 

1 

75-82 

DDNAME 

83 

» 

84-89 

Operation  attempted 

90 

f 

91-105 

Error  description 

106 

1 

107-127 

The  contents  of  this 

field  depend  on  the  type  of 

input/output  device 

in  use,  as  follows: 

For  unit  record, 

107-120  Asterisks 

121 

122-127  Access  method 

For  magnetic  tape. 

107-113  Block  count  (in  decimal) 
114 

115-119  Access  method 

120-127  Blanks 

For  mass  storage. 

107-120  Last  actual  address,  in 
the  form  BBCCHHR 
(in  hexadecimal) 

128-135 

System  use 

FIGURE  2-29 
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NOTES : 

1.  Bytes  12-13  are  in  binary  representation. 

2.  Bytes  49-127,  unless  otherwise  indicated,  are  in  EBCDIC 
representation. 

3.  Bytes  91-105  (Error  Description)  contain  a brief  description 
of  the  type  of  error  that  occurred.  The  description  is  pro- 
vided by  the  system  error  analysis  procedures,  and  is  placed 
into  bytes  91-105  upon  entry  into  the  Error  Declarative. 

Fof  example,  if  the  FD  for  an  input  file  described  120- 
character  records,  and  if  at  execution  time  the  file 
actually  contained  100-character  records,  then  when  a read 
operation  was  attempted  an  error  would  occur,  and  the  system 
would  return  the  message  "WRN.LEN. RECORD". 

Similarly,  for  a BISAM  file  opened  1-0,  an  attempt  to  write  a 
record  without  a preceding  reading  operation  would  cause  an 
error,  and  the  system  would  return  the  message  "INVALID 
REQUEST". 

Note  that  each  release  of  the  Operating  System  adds  and  deletes 
messages,  so  that  the  actual  conteqt  of  the  messages  is  subject 
to  change. 


FIGURE  2-29  (Cont.) 


Data-name-2  contains  the  block  in  error  for  a READ 
operation  if  data  was  transmitted.  For  a REWRITE  or  WRITE 
operation  data-name-2  must  not  be  referred  to. 

• IBM  DOS. 

Data-name-1  must  be  an  8-byte  external  decimal  Item.  It 
must  be  defined  in  WORK-STORAGE  SECTION.  Refer  to  FIGURE  2-30 
(page  2-284)  and  FIGURE  2-31  (page  2-285). 
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STATEMENT.  (Cont 

.) 

_ - 1 

ERROR  BYTE 

INDEXED 

SEQUENTIAL 

DIRECT 

SEQUENTIAL 

1 

DASD  Error 

Data  check 
in  count 

Parity  error 

2 

Wrong  length 
record 

Wrong  length 
record 

Wrong  length 
record 

3 

Prime  data 
full 

No  room 
found 

- 

4 

Cylinder  Index 
full 

Data  check  in 
key  or  data 

- 

5 

Master  Index 
full 

- 

- 

6 

Overflow  area 
full 

- 

- 

7 

- 

- 

- 

8 

- 

- 

- 

1 

FIGURE  2-30 
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FIGURE  2-31 

2-285 
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Data-name-2,  if  specified,  will  contain  the  block  in 
error  (or  blank,  if  no  data  was  transmitted).  Data-name-2  will 
contain  the  block  in  error  only  when  the  error  occurs  during  a 
READ  operation. 

Data-name-2  must  be  large  enough  to  hold  the  largest 
physical  Hlock  that  exists  or  will  be  written  on  file-name-2.  It 
must  be  defined  in  the  Working-Storage  or  Linkage  Section.  If 
data-name-2  is  defined  in  the  Linkage  Section,  the  block  in  error 
is  referenced  in  the  buffer  area;  no  storage  need  be  defined  for 
the  error  block. 

CSC  GUIDELINES. 

• User  labels  are  not  allowed  for  data  files  output  by  CSC 
programs  and  thus  Format  2 of  the  USE  statement  will  be  avoided. 

• The  use  of  the  GIVING  option  should  be  avoided  with  use 
of  Format  1 of  the  USE  statement.  The  programer  may  wish  to  con- 
sider using  Format  1 as  an  assist  to  debugging  in  printing  sub- 
totals or  conditions  in  the  program  processing  at  the  point  of 
ABEND. 
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FUNCTION.  The  WRITE  statement  releases  a logical  record 
for  a standard  sequential  output  file.  It  can  also  be  used  for 
vertical  positioning  of  lines  within  a logical  page. 


FORMAT. 


Format  1. 
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SYNTAX  RULES. 

• Record-name  and  identifier-1  must  not  reference  the  same 
storage  area. 

• The  record-name  is  the  name  of  a logical  record  in  the 
FILE  SECTION  of  the  DATA  DIVISION. 

• Identifier-2  must  be  the  name  of  an  elementary  integer 
data  item. 

• Integer  or  the  value  of  identifier-2  may  be  zero. 

GENERAL  RULES. 

• An  OPEN  statement  must  be  executed  prior  to  executing  the 
first  WRITE  for  that  file. 

• After  the  WRITE  statement  is  executed,  the  logical  record 
released  is  no  longer  available  in  the  record  area. 

• The  FROM  option  acts  as  a combination  MOVE  statement  and 
WRITE  statement. 

Data  is  moved  from  identifier-1  to  record-name  in  accor- 
dance with  the  COBOL  rules  for  the  MOVE  statement. 

A WRITE  is  then  executed  for  record-name. 

The  data  is  still  available  in  the  area  referenced  by 
identifier-1  but  is  unavailable  in  the  area  referenced  by  record- 
name. 


• The  maximum  record  size  for  a file  is  established  at  the 
time  the  file  is  created  and  must  not  be  changed. 

• The  ADVANCING  option  allows  control  of  the  vertical  posi- 
tioning of  each  line  on  the  printed  page.  If  this  option  is  used 
for  any  records  in  a file,  it  must  be  used  for  all  records  in 
that  file. 
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• When  Che  ADVANCING  option  is  used,  the  following  rules 
apply: 


If  identifier-2  is  specified,  the  printed  page  is 
advanced  the  number  of  lines  represented  in  the  value  of 
identifier. 

If  integer  is  specified,  the  printed  page  is  advanced 
the  number  of  lines  equal  to  the  value  of  Integer. 

• If  the  BEFORE  ADVANCING  option  is  specified,  the  record 
is  written  before  the  printed  line  is  advanced. 

• If  the  AFTER  ADVANCING  option  is  specified,  the  record 
is  written  after  the  printed  line  is  advanced. 

■ If  an  end  of  volume  (tape  reel  or  disk  unit)  occurs 
during  a WRITE  statement  for  that  file,  the  following  occurs: 

The  standard  ending  label  procedure  is  executed. 

A volume  switch  is  executed. 

The  standard  beginning  volume  procedure  is  executed. 

• If  the  ADVANCING  clause  is  omitted,  the  default  value  is 
BEFORE . 

VENDORS'  GUIDELINES. 

• IBM. 

The  identifier-2  and  integer  must  be  positive  integers 
of  less  than  100. 

In  the  ADVANCING  option,  the  first  character  of  each 
record  in  a file  must  be  reserved  by  the  user  for  the  control 
character.  The  compiler  generates  instructions  to  insert  the 
appropriate  carriage  control  character  as  the  first  character  in 
the  record.  It  is  the  user's  responsibility  to  see  that  the 
carriage  control  tape  is  correctly  punched. 
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Certain  statements  (DISPLAY,  EXHIBIT,  WRITE  AFTER 
ADVANCING)  cause  the  printer  to  space  before  printing.  A simple 
WRITE  or  a WRITE  BEFORE  ADVANCING  causes  the  printer  to  space 
after  printing.  Mixing  these  statements  may  cause  overprinting. 

The  BEFORE  option  is  significantly  more  efficient  (in 
terms  of  execution  time)  than  the  AFTER  option. 

CSC  GUIDELINES. 

• The  number  of  WRITE  statements  should  be  minimized;  nor- 
mally one  per  record  type  is  adequate.  The  technique  to  effect 
this  is  to  code  each  WRITE  in  a separate  procedure  and  PERFORM 
it  whenever  the  WRITE  operation  is  required. 

• When  a file  contains  records  of  several  types  it  is 
often  best  to  define  the  records  in  WORKING-STORAGE,  build  them 
there  and  move  them  to  the  record  area  just  prior  to  the  WRITE. 
The  01's  following  the  FD  would  then  be  effectively  "dummy" 
record  description  required  only  to  indicate  the  various  length 
of  the  records  that  can  be  written.  This  technique  avoids  the 
problem  of  a record  not  being  available  in  the  output  area  after 
a WRITE  has  been  executed.  In  this  way,  data  common  to  each 
record  can  be  saved  for  use  in  more  than  one  record  without 
having  to  move  it  separately  to  the  record  each  time. 
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2.5  SPECIAL  FEATURES. 

2.5.1  COBOL  SEGMENTATION  FACILITY . The  COBOL  segmentation 
facility  provides  a means  by  which  the  user  may  communicate  with 
the  compiler  to  specify  object  program  overlay  requirements. 

The  segmentation  feature  permits  segmentation  of  procedures  only. 
Sections  of  a program  are  resident  or  overlayable  in  core 
according  to  user-specified  section  numbers.  In  this  way,  a 
large  program  can  be  executed  in  a defined  area  of  core  storage 
by  limiting  the  number  of  segments  that  are  in  core  storage  at 
any  one  time. 

2.5. 1.1  Organization  Of  Segmentation  Facility.  When  segmenta- 
tion is  used,  the  entire  PROCEDURE  DIVISION  must  be  written  in 
sections.  Each  section  must  be  classified  as  belonging  either 
to  a fixed  portion  or  to  one  of  the  independent  segments  of  the 
object  program.  Segmentation  in  no  way  affects  the  need  for 
qualification  of  procedure-names  to  ensure  uniqueness. 

• The  fixed  portion  is  defined  as  that  part  of  the  object 
program  which  is  logically  treated  as  if  it  were  always  in  memory. 
This  portion  of  the  program  is  composed  of  two  types  of  segments: 
fixed  permanent  segments  and  fixed  overlayable  segments. 

A fixed  permanent  segment  is  a segment  in  the  fixed  por- 
tion which  cannot  be  overlaid  by  any  other  part  of  the  program. 
These  segments  must  be  available  for  reference  at  all  times. 

A fixed  overlayable  segment  is  a segment  in  the  fixed 
portion  which,  although  logically  treated  as  if  it  were  always 
in  storage,  can  be  overlaid  (if  necessary)  by  another  segment  to 
optimize  storage  utilization.  Such  a segment,  if  called  for  by 
the  program,  is  always  made  available  in  the  state  it  was  when  it 
was  last  used.  These  segments  are  generally  less  frequently  used 
than  the  fixed  permanent  segments. 

• The  independent  segment  portion  is  made  up  of  independent 
segments.  An  independent  segment  is  a part  of  the  object  program 
which  can  overlay,  or  be  overlaid  by,  either  a fixed  overlayable 
segment  or  another  independent  segment.  These  segments  are  not 
as  frequently  used  in  the  program  logic  as  the  fixed  portion  seg- 
ments. An  independent  segment  is  always  considered  to  be  in  its 
initial  state  each  time  it  is  made  available  to  the  program. 
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2.5. 1.2  Segment  Classification.  Sections  to  be  segmented  are 
classified  using  a system  of  segment  priority  numbers.  The 
numbers  are  assigned  using  the  following  criteria: 

• Logic  Requirements.  Sections  which  must  be  available  for 
reference  at  all  times,  or  which  are  referred  to  very  frequently, 
are  normally  classified  as  belonging  to  one  of  the  fixed  perma- 
nent segments.  Sections  which  are  less  frequently  used  are  nor- 
mally classified  as  belonging  to  one  of  the  fixed  overlayable 
segments  or  to  one  of  the  independent  segments,  depending  on 
logic  requirements. 

• Frequency  of  use.  Generally,  the  more  frequently  a 
section  is  referred  to,  the  lower  its  segment-number;  the  less 
frequently  it  is  used,  the  higher  its  segment-number. 

• Relationship  to  other  sections.  Sections  which  frequently 
communicate  with  one  another  should  be  given  the  same  priority 
number.  All  sections  with  the  same  priority  number  make  up  a 
single  program  segment. 

2. 5. 1.3  Segmentation  Control.  The  logical  sequence  of  a source 
program  is  the  same  as  the  physical  sequence  except  for  specific 
transfers  of  control.  When  the  sections  of  a segment  are  not 
contiguous,  the  object  module  is  reordered  to  make  the  sections 
contiguous.  However,  the  compiler  provides  transfers  to  assure 
that  the  program  logic  flow  is  followed  as  written.  The  compiler 
also  inserts  instructions  to  load  and/or  initialize  a segment 
when  necessary.  Control  may  be  transferred  within  a source 
program  to  any  paragraph  in  a section;  it  is  not  mandatory  to 
transfer  control  to  the  beginning  of  a section. 

2.5. 1.4  Structure  Of  Program  Segments. 

• Priority-numbers.  Sections  are  combined  into  segments  by 
a system  of  priority  numbers.  The  priority  number  is  included 

in  the  section  header.  All  sections  with  the  same  priority 
number  constitute  a segment. 
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2.5. 1.4  Structure  Of  Program  Segments.  (Cont.) 
FORMAT. 


section-name  SECTION  priority-number. 


I 

| RULES . 

I 

• The  priority-number  must  be  an  integer  from  0 through  99. 

‘ 

Segments  with  priority-numbers  from  0 through  49  are 
part  of  the  fixed  portion  of  the  object  program,  unless  altered 
by  the  SEGMENT-LIMIT  clause. 

Segments  with  priority-numbers  from  50  through  99  are 
independent  segments. 

If  a priority-number  is  omitted  from  a section  header, 
the  priority  is  assumed  to  be  zero. 

• Segment-limit . Normally,  all  program  segments  with 
priority  numbers  from  0 to  49  are  treated  as  permanent  segments. 
However,  at  times  the  permanent  segments  plus  the  largest  over- 
layable  segment  exceed  core  limitations.  In  this  case,  it  is 
necessary  to  decrease  the  number  of  permanent  segments.  This  is 
done  by  using  the  SEGMENT-LIMIT  clause  in  the  OBJECT- COMPUTER 
paragraph . 


FORMAT. 
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2.5. 1.4  Structure  of  Program  Segments.  (Cent.) 

RULES . 

• Priority-number  must  be  an  integer  from  0 to  49. 

• When  the  SEGMENT-LIMIT  clause  is  used,  only  those 
segments  with  priority-numbers  up  to  (but  not  including)  the 
designated  segment  limit  are  considered  as  permanent  segments. 

• The  segments  having  priority  numbers  from  the  segment 
limit  through  49  are  considered  as  overlayable  fixed  segments. 

• If  the  SEGMENT-LIMIT  clause  is  omitted,  all  segments 
having  priority  numbers  from  0 through  49  are  considered  to  be 
permanent  segments. 

2 . 5 . 1 . 5 Restrictions  On  Perform  Statement. 

• A PERFORM  statement  that  appears  in  a section  whose 
priority  number  is  lower  than  the  segment  limit  can  only  refer  to 
the  following: 

Sections  with  priority  numbers  lower  than  50  (fixed  or 
fixed  overlayable  segments). 

Sections  wholly  contained  in  a single  segment  whose 
priority  number  is  higher  than  49  (an  independent  segment) . 

• A PERFORM  statement  that  appears  in  a section  whose 
priority  number  is  equal  to  or  higher  than  the  segment  limit 
can  only  refer  to  the  following: 

Sections  within  the  same  priority  number  as  the  section 
containing  the  PERFORM  statement  (entirely  contained  in  one 
independent  segment). 

Sections  with  priority  numbers  that  are  lower  than  the 
segment  limit  (fixed  permanent  segments). 

• When  a procedure-name  in  a permanent  segment  is  referred 
to  by  a PERFORM  statement  in  an  Independent  segment,  the  inde- 
pendent segment  is  reinitialized  upon  exit  from  the  performed 
procedures . 
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2.5. 1.6  Example  of  Segmentation.  (Cont.) 


-NBR-6  SECTION  18. 


0070-NBR-7  SECTION  53. 


FIGURE  2-32  (Cont.) 


• In  the  preceding  sample  program,  shown  on  FIGURE  2-32, 
seven  sections  composing  three  segments  are  illustrated. 

Sections  1,  2,  and  4 have  priority  number  of  5 which  is  less  than 
the  segment-limit.  They  constitute  a fixed  permanent  segment 
which  will  always  be  available  in  core.  Sections  3 and  6 have  a 
priority  number  of  18  which  is  greater  than  the  segment-limit  but 
less  than  49.  They  constitute  a fixed  overlayable  segment  which 
will  normally  remain  in  core  but  may  be  overlaid  if  necessary. 
This  segment  is  always  in  its  last  used  state  whenever  it  is 
returned  to  core  Sections  5 and  7 have  a priority  number  of  53 
which  places  this  segment  in  the  category  of  an  independent  seg- 
ment which  is  in  its  original  state  each  time  it  is  called  into 


2 . 5 . 1 . 7 CSC  Guidelines  For  Segmentation. 

• If  a program  is  to  be  segmented,  a primary  requirement  is 
that  the  possibility  be  considered  during  the  system  and  program 
design  phase.  During  this  phase  the  nature  and  sequence  of  data 
to  be  processed  should  be  investigated  to  determine  paths  of  the 
program  which  will  be  required  all  of  the  time  and  those  with 
lower  percentage  of  use.  A great  amount  of  preplanning  is 
required  to  determine  efficient  overlay  structure. 


( 
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2. 5. 1.7  CSC  Guidelines  For  Segmentation.  (Cone.) 

• The  decision  Co  segment  a program  is  a tradeoff  of  the 
memory  to  be  saved  against  the  time  lost  reading  and  reloading 
segment  blocks.  Some  considerations  in  creating  a segmented 
program  are: 

The  amount  of  memory  to  be  saved. 

The  percentage  of  use  of  a procedure.  A procedure  that 
is  used  more  than  bX  of  the  time  should  probably  be  a permanent 
segment.  A procedure  used  only  5%  of  the  time  will  be  required 
on  an  average  once  in  every  twenty  records.  This  could  amount 
to  reloading  the  segment  500  times  if  10,000  transactions  are 
processed. 

ANSI  segmentation  is  best  utilized  where  successive  exe- 
cution of  overlayable  segments  are  possible.  "Flip-flop" 
processing  of  overlayable  segments  is  not  recommended  because  it 
requires  excessive  CPU  time. 

The  size  of  a segmented  program  is  equal  to  the  size  of 
the  fixed  segment  plus  the  largest  overlayable  or  independent 
segment.  The  size  of  a segmented  program  with  COBOL  sort  input/ 
output  procedures  is  equal  to  the  fixed  segment  plus  the  largest 
overlayable  segment  plus  the  largest  overlayable  sort  segment. 

For  techniques  on  debugging  an  OS  segmented  program,  see 
OS  COBOL  Program  Debugging  Aids  in  the  Debugging  Aids  section  of 
this  manual. 

Segmentation  of  very  large  programs  can  also  be  accom- 
plished through  separately  compiled  and  called  overlays.  Refer 
to  USACSCM  Executive  Software  Catalogs  (18-2-B  series)  (P54ATP 
DOS,  P52ATU  OS)  for  additional  information. 
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2.5.2  SORT  FEATURE. 

2. 5. 2.1  Introduction. 

• Sorting  Is  the  process  of  rearranging  a group  of  records 
into  a new  sequence.  A COBOL  sort-file  is  the  group  of  records 

to  be  rearranged  and  the  sort  keys  are  fields  within  the  sort-file 
records  according  to  which  the  records  are  sequenced.  Records  may 
be  sorted  in  conjunction  with  regular  file  processing  which  may 
consist  of  addition,  deletion,  creation,  editing,  validation,  or 
any  other  modification  either  to  the  records  being  sorted  or  to 
other  records  being  processed  in  the  sort  program.  This  process- 
ing may  occur  before  and/or  after  the  sorting  occurs.  The 
procedures  that  cause  special  processing  before  sorting  are  called 
input  procedures.  Those  that  cause  processing  after  sorting  are 
called  output  procedures.  For  example,  a transaction  file  can  be 
validated,  sorted,  and  then  applied  to  a master  file  all  in  a 
single  program.  Or,  a master  file  can  be  updated,  sorted  into  a 
different  sequence  for  printing,  then  edited  and  written  in  the 
new  sequence. 

• The  basic  elements  of  the  COBOL  Sort  Feature  are  the  SORT 
statement  in  the  PROCEDURE  Division  and  the  Sort-File-Description 
(SD)  entry,  with  its  associated  record  description  entries,  in  the 
Data  Division.  A sorting  operation  is  based  on  sort-keys  named 

in  the  SORT  statement.  Sort-keys  are  defined  in  the  record 
description  associated  with  the  SD  entry.  The  sort-key  data  items 
may  be  evaluated  in  ascending  or  descending  order,  or  in  a mixture 
of  the  two;  that  is,  the  sort-keys  may  be  specified  as  ascending 
or  descending,  independent  of  one  another,  and  the  sequence  of  the 
sorted  records  will  conform  to  the  mixture  specified. 

• The  SORT  statement  in  the  PROCEDURE  DIVISION  is  the  pri- 
mary element  of  a source  program  that  includes  a COBOL  sorting 
operation.  The  term  sorting  operation  is  used  to  mean  not  only 
the  manipulation  by  the  sort  program  of  sort  files  on  the  basis 
of  the  sort-keys  designated  by  the  COBOL  programer,  but  also  to 
include  the  method  of  making  records  available  to,  and  retrieving 
records  from  the  sort-work  files.  A sort-work  file  is  the 
collection  of  records  actually  involved  in  the  sorting  operation 
as  they  exist  on  an  intermediate  device.  To  use  the  Sort  Feature, 
the  COBOL  programer  must  provide  information  related  to  sorting 

in  the  Environment,  Data,  and  Procedure  Divisions  of  the  source 
program.  The  specifications  for  these  language  elements  follow 
this  general  description. 


2-299 


1 


CSCM  18-1-1 


1 FEB  79 


; 


2 . 5 . 2 . 2 Environment  Division  Sort  Feature. 

• In  the  Environment  Division,  the  programer  must  write  a 
SELECT  entry  for  the  sort-file  in  addition  to  the  SELECT  entries 
required  for  all  the  files  used  as  input  and  output  in  the  pro- 
gram. The  SELECT  entry  for  the  sort-file  specifies,  in  the  ASSIGN 
clause,  the  hardware  device  that  the  sort  operation  uses  for  the 
work  files  generated  during  the  execution  of  the  sort. 

FORMAT. 


• In  the  ENVIRONMENT  DIVISION,  the  following  format  must 
be  used: 


SELECT 

ASSIGN 


sort-file-name-1 


system-name- 1 


n 


L 


system-name-2 


RULES. 

• Sort-file-name  identifies  the  sort-file  to  the  compiler. 

• The  ASSIGN  clause  Is  used  to  describe  the  sort  work 
files.  See  language  element  - ASSIGN  clause  for  DOS/OS  specifi- 
cations for  integer-1  and  system-name-n. 

• The  I-O-CONTROL  paragraph  specifies  the  memory  area  to 
be  shaded  by  different  sort-files,  if  applicable.  The  SAME  SORT 
AREA  clause  specifies  that  two  or  more  files,  at  least  one  of 
which  is  a sort-file,  will  use  the  same  memory  area  for  process- 
ing of  the  current  logical  record.  The  logical  record  of  only 
one  of  the  files  can  exist  in  the  record  area  at  one  time. 

During  the  execution  of  a SORT  statement  that  refers  to  a sort- 
file  named  in  this  clause,  any  non-sort-files  named  in  the  clause 
must  not  be  opened. 
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2 . 5 . 2 . 3 Data  Division  Sort  Feature. 

• In  the  Data  Division,  the  programer  must  include  File 
Description  entries  (FD)  for  all  files  that  are  used  to  provide 
input  to  or  receive  output  from  the  sort  program.  He  must  also 
write  a Sort-File  Description  (SD)  entry  and  its  associated 
record  description  entries  to  describe  the  records  that  are  to 
be  sorted,  including  their  sort-key  fields. 

FORMAT. 

• The  sort-file-description  entry  must  appear  in  the  File 
Section.  The  following  format  must  be  used: 


J 

l 

t 


SD  sort-file-name-1 

RECORDING  MODE  IS  mode 

f f RECORD  IS 

^ DATA  | RECORDS  ARE 

[ data-name-1 

jjlata-name-0  . . 

^ RECORD  CONTAINS  | 

integer-1  ToJ 

integer-2  CHARACTERS J 

RULES . 

• Sort-file-name  is  the  name  used  to  describe  the  records 
to  be  sorted. 

• The  RECORDING  MODE  clause  is  used  to  specify  the  format 
of  the  logical  data  records  on  the  file.  (For  IBM,  the  mode  must 
be  either  'F',  ’V'  or  'U'.) 

• The  RECORD  CONTAINS  clause  merely  specifies  the  size  of 
the  data  records.  The  actual  size  and  mode  of  the  records  is 
determined  from  the  level-01  descriptions  associated  with  a given 
SD  entry. 
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• In  the  Procedure  Division,  the  programer  specifies  in  the 
SORT  statement  the  sort— file— name,  the  sort— key— names,  and 
whether  the  records  are  to  have  special  processing.  If  there  is 
to  be  such  processing,  the  Procedure  Division  must  also  include 
the  program  sections  that  perform  the  processing. 
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2. 5. 2. 5 SORT  STATEMENT. 

FUNCTION . The  SORT  statement  provides  the  information  that 
is  needed  to  control  the  sorting  operation.  This  statement 
directs  the  sorting  operation  to  obtain  the  records  that  are  to 
be  sorted  from  an  input  procedure  or  the  USING  file,  to  sort  the 
records  by  keys  in  either  ASCENDING  and/or  DESCENDING  order  and 
then  to  make  the  sorted  record  available  to  either  an  output 
procedure  or  to  a GIVING  file. 

FORMAT. 


(’DESCENDING*'!  KEY  fdata-name-l!  ... 
SORT  Sort-file-name-1  ON  \ ASCENDING  ] \ J 


f descending!  f ! 

ON  1 ASCENDING  J KEY  ^data-name-2  / 


* 

(I 


INPUT  PROCEDURE  IS  section-name-1 
USING  file-name-2 


OUTPUT  PROCEDURE  IS  sect ion-name- 3 
GIVING  file-name- 3 


THRU  section-name 


THRU  section-name-4 


-]) 

•]) 


SYNTAX  RULES. 


• So r t-fil e-name- 1 must  be  the  name  given  in  the  sort-file 
description  (SD)  entry  that  describes  the  records  to  be  sorted. 
File-name-2  and  file-name-3,  if  used,  must  be  FD  entries. 
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2. 5. 2. 5 SORT  STATEMENT.  (Cont.) 

• Each  data-name  must  be  described  in  the  records  associ- 
ated with  sort-file-name-1.  Each  data-name  represents  a "key" 
data-item. 

Keys  must  be  physically  located  in  the  same  position 
and  have  the  same  data-format  in  every  logical  rec  rd  of  the 
sort-file. 

Key  items  must  not  contain  an  OCCURS  clause  nor  be 
subordinate  to  entries  that  contain  an  OCCURS  clause. 

The  items  that  the  keys  describe  must  not  be  variable- 
length  nor  may  they  name  group  items  which  contain  variable- 
occurrence  data  items. 

• At  least  one  ASCENDING  or  one  DESCENDING  clause  must  be 
specified. 

• Keys  must  be  listed  from  left  to  right  in  order  of 
decreasing  significance. 

• Either  sect ion-name- 2 or  section-name-4  is  required  if 
that  procedure  terminates  in  a section  other  than  the  one  in 
which  it  started. 

GENERAL  RULES. 

• The  ASCENDING  and  DESCENDING  options  specify  the 
sequence  in  which  the  records  are  to  be  sorted  based  on  the  sort 
keys. 

The  ASCENDING  option  indicates  that  the  sorting  sequence 
is  from  the  lowest  value  of  the  key  to  the  highest  value. 

The  DESCENDING  option  indicates  that  the  sorting  sequence 
is  from  the  highest  value  of  the  key  to  the  lowest  value. 

• The  INPUT  PROCEDURE  option  is  used  to  indicate  that  the 
programer  has  written  an  input  procedure  to  process  records  before 
they  are  sorted. 
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2. 5. 2. 5 SORT  STATEMENT.  (Cont.) 

The  input  procedure  must  consist  of  one  or  more  sections 
written  consecutively  which  do  not  form  a part  of  any  output 
procedure. 

The  input  procedure  must  include  at  least  one  RELEASE 
statement. 

There  are  three  restrictions  on  the  procedural  statements 
within  an  input  procedure. 

1.  The  input  procedure  must  not  contain  a SORT 
statement. 

2.  The  input  procedure  must  not  contain  any  transfers 
of  control  to  points  outside  the  input  procedure 
except  for  the  CALL  statement. 

3.  The  remainder  of  the  PROCEDURE  DIVISION  must  not 
contain  any  transfers  of  control  to  points  inside 
the  input  procedure. 

Sect ion-name- 1 is  the  name  of  the  input  procedure; 
section-name-2  is  the  name  of  the  last  section  that  contains  the 
input  procedure. 

At  the  end  of  the  input  procedure,  the  compiler  inserts 
a return  mechanism  and  then  the  records  that  have  been  released 
to  file-name- 1 are  sorted. 

• When  the  USING  option  is  specified,  all  the  records  in 
file-name-2  are  transferred  automatically  to  sort-file-name-1. 

The  actual  size  of  logical  record  described  for  file-name-2  must 
be  equal  to  the  actual  size  of  the  logical  record  described  for 
sort-file-name-1.  It  is  the  programer's  responsibility  to 
describe  the  corresponding  records  in  such  a manner  so  as  to 
cause  an  equal  number  of  character  positions  to  be  allocated  for 
the  corresponding  records.  File-name-2  must  not  be  open  at  the 
execution  of  the  SORT.  For  this  option,  the  compiler  will  gener- 
ate instructions  to  open,  read,  release,  and  close  file-name-2 
automatically. 
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2. 5. 2. 5 SORT  STATEMENT.  (Cont.) 

• The  OUTPUT  PROCEDURE  is  specified  in  order  that  control 
be  passed  to  a procedure  after  all  the  records  are  sorted. 

The  output  procedure  must  consist  of  sections  written 
consecutively  which  do  not  form  a part  of  any  input  procedure. 

The  output  procedure  must  include  at  least  one  RETURN 
statement. 

The  same  three  restrictions  that  apply  for  the  input 
procedure  also  apply  for  the  output  procedure. 

Section-name-3  is  the  name  of  the  output  procedure; 
section-name-4  is  the  name  of  the  last  section  that  contains  the 
output  procedure. 

At  the  end  of  the  output  procedure,  the  return  mechanism 
provides  for  termination  of  the  SORT  and  control  then  goes  to  the 
next  sentence  following  the  SORT  statement. 

• When  the  GIVING  option  is  specified,  all  sorted  records 
in  file-name-1  are  automatically  transferred  to  file-name-3. 

The  actual  size  of  the  logical  record  described  for  file-name-3 
must  be  equal  to  the  actual  size  of  the  logical  record  described 
for  sort-file-name-1.  It  is  the  programer's  responsibility  to 
describe  the  corresponding  records  in  such  a manner  so  as  to 
cause  an  equal  number  of  character  positions  to  be  allocated  for 
the  corresponding  records.  File-name-3  must  not  be  open  at  the 
execution  of  the  SORT.  For  this  option,  the  compiler  will  gener- 
ate instructions  to  open,  return,  write  and  close  file-name-3 
automatically. 

Flle-name-3  must  be  a standard  sequential  file. 

• The  areas  described  by  data-names  following  key  must  not 
overlap. 

• Output  order  of  records  with  keys  of  equal  value  is 
unspecified. 

• Segmentation  can  be  used  in  programs  containing  SORT 
statements  subject  to  the  following  restrictions: 
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2. 5. 2. 5 SORT  STATEMENT.  (Cont.) 

If  a SORT  statement  appears  in  a section  in  the  per- 
manent resident  segment,  any  INPUT  PROCEDURE  or  OUTPUT  PROCEDURE 
specified  must  appear  totally  within  nonindependent  segments  or 
wholly  within  a single  independent  segment. 

If  a SORT  statement  appears  in  an  overlayable  segment, 
any  INPUT  PROCEDURE  or  OUTPUT  PROCEDURE  specified  must  appear 
totally  within  the  permanent  resident  segment  or  wholly  within 
the  same  overlayable  segment. 

• Nested  SORTs  are  not  allowed. 
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2. 5. 2. 6 RELEASE  STATEMENT. 

FUNCTION . The  RELEASE  statement  transfers  records  from  an 
input  procedure  to  the  Input  phase  of  the  sort  operation. 

FORMAT. 


RELEASE  sort-record-name 

FROM  identifier  1 

L ' J 

SYNTAX  RULES. 

• Sort-record-name  must  be  the  name  of  a logical  record 
in  the  associated  sort-file  description  (SD) . 

• Sort-record-name  and  identifier  must  not  refer  to  the 
same  storage  area. 

• A RELEASE  statement  must  only  be  used  within  the  range 
of  an  input  procedure  associated  with  a SORT  statement. 

GENERAL  RULES. 

• The  FROM  option  makes  the  RELEASE  statement  equivalent 
to  the  statement  MOVE  identifier  TO  sort-record-name,  followed 
by  a RELEASE  statement. 

• After  the  execution  of  the  RELEASE  statement,  the  logical 
record  is  no  longer  available.  However,  if  the  FROM  option  is 
used,  information  stored  in  the  identifier  is  available. 
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2. 5. 2. 7 RETURN  STATEMENT. 

FUNCTION.  The  RETURN  statement  obtains  individual  records 
in  sorted  order  from  the  final  phase  of  the  SORT. 

FORMAT . 


RETURN  sort-file-name- 1 RECORD 


INTO  identifier  I 


AT  IlND  imperative-statement 


I 


SYNTAX  RULES . 

• The  name  of  the  sort  file  must  be  the  name  given  in  the 
sort-f lie-description  (SD)  entry  that  describes  the  records  that 
are  to  be  sorted. 

• The  Identifier  must  be  the  name  of  a WORKING-STORAGE 
area  or  the  name  of  an  output  record  area. 

• A RETURN  statement  must  only  be  used  within  the  range 
of  an  output  procedure  associated  with  a SORT  statement. 

GENERAL  RULES. 

• The  INTO  option  has  the  same  effect  as  the  MOVE  state- 
ment for  alphanumeric  items. 

• The  imperative-statement  in  the  AT  END  phrase  specifies 
the  action  to  be  taken  when  all  the  sorted  records  have  completed 
and  been  obtained  from  the  sorting  operation. 
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2. 5. 2. 8 EXIT  STATEMENT. 

FUNCTION.  The  procedure*  may  be  terminated  by  Che  use  of 
an  EXIT  statement. 

FORMAT. 

e The  following  is  the  format  of  the  EXIT  statement: 


1 
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IBM. 

• A character  in  the  EBCDIC  collating  sequence  (used  for 
alphabetic,  alphanumeric,  etc.,  data  items)  is  interpreted  as  not 
being  signed.  For  numeric  data  items,  characters  are  collaged 
algebraically  (as  being  signed). 

• A maximum  of  12  keys  may  be  specified. 

• The  total  length  of  all  the  keys  must  not  be  greater  than 
256  bytes. 

• All  key  fields  must  be  located  within  the  first  4,092 
bytes  of  a logical  record. 

• An  IBM  extension  to  ANS  COBOL  allows  GO  TO  and  PERFORM 
statements  in  the  remainder  of  the  PROCEDURE  DIVISION  to  refer  to 
procedure-names  within  the  input  or  output  procedure. 

This  statement  must  appear  as  the  only  statement  in  the 
last  paragraph  of  the  input  or  output  procedure. 

• RESERVED  WORD  DATA  ITEMS.  For  the  IBM-360/370,  four 
reserved  word  data  items  are  supplied  by  the  compiler  for  use  in 
controlling  the  Sort  operation.  These  data  items  must  not  be 
defined  by  the  programer  in  the  DATA  DIVISION. 

The  first  three  items  may  have  control  information 
transferred  to  them  at  object  time  if  the  user  specifies  them  as 
the  receiving  fields  of  statements  such  as  MOVE.  The  information 
must  be  passed  before  the  SORT  statement  is  executed.  The  items 
are  initialized  to  zero  by  the  compiler,  but  are  not  reset  after 
a Sort  procedure  is  executed. 

• SORT-FILE-SIZE  (IBM  Extension)  is  the  name  of  a binary 
data  item  whose  PICTURE  is  S9(8).  It  Is  used  for  the  estimated 
number  of  records  in  the  file  to  be  sorted.  If  SORT-FILE-SIZE 
is  omitted,  it  is  assumed  that  the  file  contains  the  maximum 
number  of  records  that  can  be  processed  with  the  available  core 
size  and  number  of  work  units.  In  order  to  make  more  efficient 
use  of  both  main  and  intermediate  storage,  the  SORT-FILE-SIZE 
special  register  should  be  used  whenever  possible.  It  is 
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realized  Chat  the  exact  number  of  records  In  a file  may  not  be 
known,  however,  an  estimate  of  the  file  size  should  be  moved  to 
this  register.  If  the  estimate  exceeds  the  maximum,  the  estimate 
will  be  Ignored. 

EXAMPLE.  An  example  of  using  the  SORT-FILE-SIZE 
register  is  as  follows: 

1.  If  the  number  of  records  in  your  file  is  1,00(9,  you 
just  simply  state: 


| . 


I I 


1 

MOVE  1,000  to  SORT-FILE-SIZE.  | 


2.  This  statement  causes  the  value  1,000  to  be  placed  in 
a special  register  that  is  a binary  data  item  with  a PICTURE  of 
S9(8) . 

• SORT-CORE-SIZE  (IBM  Extension)  is  the  name  of  a binary 
data  item  whose  PICTURE  is  S9(8).  It  is  used  to  specify  the 
number  of  character  positions  of  core  storage  available  to  the 
sorting  operation  if  it  is  different  from  the  core  size  that  the 
Sort  would  normally  use. 

• SORT-MODE-SIZE  (IBM  Extension)  is  the  name  of  a binary 
data  item  whose  PICTURE  is  S9 (5) . It  is  used  for  variable-length 
records.  If  the  length  of  most  records  in  the  file  is  signifi- 
cantly different  from  the  average  record  length  performance  is 
improved  by  specifying  the  most  frequently  occurring  record  length. 
If  SORT-MODE-SIZE  is  omitted,  the  average  length  is  assumed. 

For  example,  if  records  vary  in  length  from  20  to  100  bytes,  but 
most  records  are  30  bytes  long,  the  value  30  should  be  moved  to 
SORT-MODE-SIZE.  The  maximum  record  length  handled  by  the  Sort  is 
32,000  characters. 


i.  
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• SORT-RETURN  (IBM  Extension)  is  the  name  of  a binary  data 
item  whose  PICTURE  is  S9(4).  It  contains  a return  code  of  0 or 
16  at  the  completion  of  a sorting  operation  to  signify  the 
success  or  failure,  respectively,  of  the  sort  operation. 

The  following,  FIGURE  2-33,  is  an  example  of  the  SORT 
statement  and  other  basic  statements  that  are  used  to  make  up  the 
SORT  facility,  (OS). 


000025 

IDENTIFICATION  DIVISION. 

000050 

PROGRAM- I D . SAMPSORT . 

000075 

a 

000100 

• 

000125 

• 

000150 

ENVIRONMENT  DIVISION. 

000175 

CONFIGURATION  SECTION. 

000200 

SOURCE-COMPUTER.  IBM-360-G40. 

000225 

OBJECT-COMPUTER.  IBM-360-G40. 

000250 

INPUT-OUTPUT  SECTION. 

000275 

FILE-CONTROL. 

000300 

SELECT  INFD  ASSIGN  TO  UT-S-INF1LE. 

000325 

SELECT  OUTED  ASSIGN  TO  UT-S-OUTFILE. 

000350 

SELECT  SORTSD  ASSIGN  TO  UT-S-SORTFILE . 

000375 

DATA  DIVISION. 

000400 

FILE  SECTION. 

000425 

FD  INFD 

000450 

LABEL  RECORDS  ARE  STANDARD 

000475 

RECORDING  MODE  IS  F 

000480 

BLOCK  CONTAINS  0 RECORDS 

000500 

RECORD  CONTAINS  80  CHARACTERS 

000525 

DATA  RECORD  IS  INREC. 

000550 

01  INREC  PIC  X(80) . 

000575 

FD  OUTFD 

000600 

LABEL  RECORDS  ARE  STANDARD 

000625 

RECORDING  MODE  IS  F 

000640 

BLOCK  CONTAINS  0 RECORDS 

000650 

DATA  RECORD  IS  OUTREC. 

000700 

01  OUTREC. 

000725 

05  CARR-CON  PIC  X. 

000750 

05  REC  PIC  X(80) . 

000775 

SD  SORTSD 

000800 

LABEL  RECORDS  ARE  STANDARD 

000825 

RECORDING  MODE  IS  F 

FIGURE  2-33 
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000850 

RECORD  CONTAINS  80  CHARACTERS 

000875 

DATA  RECORD  IS  SORTREC. 

000900 

01  SORTREC. 

000925 

05  KEY-1  PIC  X(10) . 

000950 

05  FILLER  PIC  X(20). 

000975 

05  KEY-2  PIC  X(20). 

001000 

05  FILLER  PIC  X( 30) . 

001025 

PROCEDURE  DIVISION. 

001050 

0010-SORTSEC. 

001075 

OPEN  INPUT  INFD. 

001100 

OPEN  OUTPUT  OUTFD. 

001125 

SORT  SORTSD  ON  ASCENDING  KEY  KEY-1  KEY-2 

001150 

INPUT  PROCEDURE  IS  INPROC  SECTION 

001175 

OUTPUT  PROCEDURE  IS  OUTPROC  SECTION. 

001180 

IF  SORT-RETURN  IS  NOT  EQUAL  TO  0 

001185 

GO  TO  0080-ABEND. 

001225 

0020- INPROC  SECTION. 

001250 

0030-INSEC. 

001275 

READ  INFD  AT  END  GO  TO  0030-INPROCEND. 

001300 

MOVE  INREC  TO  SORTREC. 

001325 

RELEASE  SORTREC. 

001350 

GO  TO  INSEC. 

001375 

0030-INPROCEND. 

001380 

CLOSE  INFD. 

001390 

0040-EXIT. 

001400 

EXIT. 

001425 

OUTPROC  SECTION. 

001450 

0050-OUTSEC . 

001475 

RETURN  SORTSD  AT  END  GO  TO  0060-CLOSE-FILE. 

001500 

MOVE  SORTREC  TO  REC. 

001525 

MOVE  SPACE  TO  CARR-CON. 

001550 

WRITE  OUTREC. 

001575 

GO  TO  OUTSEC. 

001600 

0060-CLOSE-FILE. 

001625 

CLOSE  OUTFD. 

001630 

007050  0070-EXIT. 

001675 

EXIT. 

001700 

0080-ABEND. 

001725 

DISPLAY  'ABNORMAL  END  OF  SORT'. 

(ABNORMAL  TERMINATION  PROCEDURE)  ; 

• 

• 

FIGURE  2-33  (Cont.) 
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• Specify  the  minimum  of  primary  and  intermediate  storage 
needed  to  execute  the  sort  successfully. 

• Use  the  ANS  COBOL  SORT  feature  rather  than  the  system 
utility  sort  program  since  it  provides: 

Flexibility  in  the  allocation  of  storage,  record  and  file 
size  specification. 

The  ability  to  process  records  before  and/or  after  the 

sort. 


Protection  from  user  errors  in  handling  JCL  job  stream. 

The  benefits  of  standard  COBOL  documentation. 

• The  sort  execution  speed  can  be  increased  if  records  and 
files  are  carefully  described,  considering  the  following: 

In  formatting  SORT  records,  specify  as  sort  keys  only  the 
minimum  amount  of  data  necessary.  If  you  specify  more  than  one 
sort  key  field,  try  to  make  all  keys  contiguous  and  ordered  from 
major  key  to  minor  key.  If  key  fields  are  contiguous,  group  them 
under  one  group  item  and  use  the  group  item  as  the  sort  key. 

These  actions  will  improve  sort  execution  speed. 

The  definition  of  sort  keys  has  certain  restrictions. 

KEYS  must  be  physically  located  in  the  same  relative  position  of 
every  logical  record  in  the  sort  file.  KEYS  must  not  contain 
OCCURS  clauses,  nor  appear  after  a variable  portion  of  a record. 

When  blocking  input  and  output  files,  block  as  many 
records  as  possible.  Low  blocking  factors  are  the  greatest  single 
causes  of  poor  execution  speed. 

Sort  records  should  be  as  small  as  possible  (the  physical 
block  must  be  18  bytes  or  longer  to  avoid  noise  record  errors) . 

Use  of  an  input  procedure  to  extract  unnecessary  fields  before 
each  record  is  released  to  the  sort  should  be  employed  whenever 
feasible. 


* r 
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In  handling  large  files,  the  limiting  factor  is  not  pri- 
mary storage  or  record  size,  but  the  amount  of  intermediate 
storage  available.  If  a large  file  is  to  be  sorted,  it  is  best 
to  divide  it  into  several  sorts  and  merge  them  together  later. 
This  reduces  the  possibility  of  abnormal  program  termination  due 
to  Inadequate  intermediate  storage. 

To  better  handle  intermediate  storage  allocations,  anti- 
cipate the  minimum  storage  requirements  and  specify  the  amount 
to  be  used  for  sorting. 

SORT-RETURN  must  be  checked  and  if  it  is  not  equal  to 
zero,  abnormal  termination  procedures  observed. 

Input  and  output  procedures  must  be  terminated  with  an 
EXIT  statement. 

The  IBM  extension  to  ANS  COBOL  allowing  GO  TO  and  PERFORM 
statements  in  the  remainder  of  the  PROCEDURE  DIVISION  to  refer  to 
procedure  names  within  the  input  or  output  procedure  will  not 
be  used. 


Use  of  the  DISPLAY  statement  within  a SORT  INPUT  or 
OUTPUT  procedure  should  be  used  with  extreme  care.  The  SORT 
INPUT  procedure  uses  a WRITE  BEFORE  ADVANCING  which  results  in 
an  overprint  on  the  SYSOUT  file  if  the  program  has  previously 
DISPLAY' ed  a message. 
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2.5.3  TABLE  HANDLING  FEATURE. 

2 . 5 . 3 . 1 Introduction. 

TABLES  OF  DATA.  Tables  of  data  are  common  components  of 
business  data  processing  problems. 

• Tables  composed  of  contiguous  data  items  are  defined  in 
COBOL  by  including  the  OCCURS  clause  in  their  data  description 
entries.  The  clause  specifies  that  the  item  is  to  be  repeated 
as  many  times  as  stated.  The  item  is  considered  to  be  a table 
element  and  its  name  and  description  apply  to  each  repetition  or 
occurrence.  Since  each  occurrence  of  a table  element  does  not 
have  assigned  to  it  a unique  data-name,  reference  to  a desired 
occurrence  may  be  made  only  by  specifying  the  data-name  of  the 
table  element  together  with  the  occurrence  number  of  the  desired 
table  element.  The  occurrence  number  is  known  as  a subscript, 
and  this  technique  of  specifying  individual  table  elements  is 
called  subscripting. 

• In  order  to  facilitate  such  operations  as  table  searching 
and  manipulating  specific  items,  a technique  called  indexing  is 
also  available. 

INITIAL  VALUES  OF  TABLES.  In  the  WORKING-STORAGE  SECTION, 
initial  values  of  elements  within  tables  are  specified  in  one  of 
the  following  ways: 

• The  table  may  be  described  as  a record  by  a set  of  con- 
tiguous data  description  entries,  each  of  which  specifies  the 
VALUE  of  an  element,  or  part  of  an  element,  of  the  table.  In 
defining  the  record  and  its  elements,  any  data  description  clause 
(USAGE,  PICTURE, etc. ) may  be  used  to  complete  the  definitions 
where  required.  This  form  is  required  when  the  elements  of  the 
table  require  separate  handling  due  to  synchronization,  USAGE, 
etc.  The  hierarchical  structure  of  the  table  is  then  shown  by 
use  of  the  REDEFINES  entry  and  its  associated  subordinate  entries. 
The  subordinate  entries,  following  the  REDEFINES  entry  which  are 
repeated  due  to  OCCURS  clauses,  must  not  contain  VALUE  clauses. 

• When  the  elements  of  a table  do  not  require  separate 
handling,  the  value  of  the  entire  table  may  be  given  in  the  entry 
defining  the  entire  table.  The  lower  level  entries  will  show  the 
hierarchical  structure  of  the  table;  lower  level  entries  must  not 
contain  VALUE  clauses. 
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2 . 5 . 3 . 2 Subscripting. 
FORMAT. 


?1 


‘ 

i 

f 

* 


data-name  (subscript  [,  subscript]  ) 


• Subscripts  are  enclosed  in  parentheses  following  the 
space  after  data-name,  which  is  the  table  element. 

• When  more  than  one  subscript  is  used,  a comma  must 
separate  the  subscripts,  and  a space  must  follow  each  comma. 

• No  space  must  appear  between  the  enclosing  parentheses 
and  their  adjacent  subscripts. 

SUBSCRIPTING.  A method  by  which  occurrence  numbers  may  be 
specified  is  to  append  one  or  more  subscripts  to  the  data-name. 

A subscript  is  an  integer  greater  than  zero,  whose  value  specifies 
the  occurrence  number  of  an  element  within  the  group  item  that 
has  the  next  lower  level-number.  The  subscript  can  be  represented 
either  by  a literal  which  is  an  integer  or  by  a data-name  which 
is  defined  elsewhere  as  a numeric  elementary  item  with  no  char- 
acter positions  to  the  right  of  the  assumed  decimal  point.  In 
either  case,  the  subscript  enclosed  in  parentheses,  is  written 
immediately  following  the  name  of  the  table  element.  A table 
element  must  include  as  mary  subscripts  as  there  are  dimensions 
in  the  table  whose  element  is  being  referred  to.  That  is,  there 
must  be  a subscript  for  each  OCCURS  clause  in  the  hierarchy 
containing  the  data-name  including  the  data-name  itself. 

EXAMPLE  OF  SUBSCRIPTING.  For  a table  with  three  levels  of 
subscripting,  the  following  Data  Division  entries  would  result 
in  a storage  layout  as  shown  below. 


L 
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01  PARTY-TABLE  REDEFINES  TABLE. 

05  PARTY-CODE  OCCURS  3 TIMES. 

10  AGE-CODE  OCCURS  3 TIMES. 

15  M-F-INFO  OCCURS  2 TIMES  PICTURE  S9(7)V9 
USAGE  DISPLAY. 


• Reference  to  elementary  items  within  PARTY-TABLE  is  made 
by  use  of  a name  that  is  subscripted.  A typical  Procedure 
Division  statement  might  be: 


• In  order  to  use  the  Table  Handling  feature,  the  programer 
must  provide  certain  information  in  the  Data  Division  and 
Procedure  Division  of  the  program.  Refer  to  FIGURE  2-34  (page 
2-320)  for  Storage  Layout  for  Party-Table. 


• When  more  than  one  subscript  is  required,  they  are  written 
in  the  order  of  successively  less  inclusive  dimensions  of  the  data 
organization.  If  a multi-dimensional  table  is  thought  of  as  a 
series  of  nested  tables,  the  most  inclusive  or  outer  most  table 
is  considered  to  be  the  major  table,  with  the  inner  most  or  least 
inclusive  table  being  the  minor  table,  then  the  subscripts  are 
written  from  left  to  right  in  the  order  major,  intermediate,  and 
minor. 
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8 bytes 


PARTY-CODE (1) 


PARTY-TABLE  < PARTY-CODE (2 ) 


PARTY-CODE (3) 


AGE-CODE  (1,1) 


AGE-CODE 


AGE-CODE  (1,  3) 


AGE-CODE  (2,  1) 


AGE-CODE  (2,  2) 


AGE-CODE  (2,  3) 


AGE-CODE  (3,  1) 


AGE-CODE  (3,  2) 


AGE-CODE 


t \ 

M-F-INFO 

(1, 

1, 

1) 

M-F-INFO 

(1. 

1, 

2 

M-F-INFO 

(1, 

2, 

1) 

M-F-INFO 

(1, 

2, 

2) 

M-F-INFO 

(1, 

3, 

1) 

M-F-INFO 

(1, 

3, 

2) 

M-F-INFO 

(2, 

1, 

1) 

M-F-INFO 

(2, 

1. 

2) 

M-F-INFO 

(2, 

2, 

1) 

M-F-INFO 

(2, 

2, 

2) 

M-F-INFO 

(2, 

3, 

1) 

M-F-INFO 

(2, 

3, 

2) 

M-F-INFO 

(3, 

1. 

1) 

M-F-INFO 

(3, 

1. 

2) 

M-F-INFO 

(3, 

2, 

1) 

M-F-INFO 

(3, 

2, 

2) 

M-F-INFO 

(3, 

3, 

1) 

M-F-INFO 

(3, 

3, 

2) 

V / 

OCCURS  3 TIMES  OCCURS  3 TIMES  OCCURS  2 TIMES 


FIGURE  2-34 
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• A reference  to  an  Item  must  not  be  subscripted  If  the 
Item  Is  not  a table  element  or  an  Item  or  condition  name  within 
a table  element. 

• The  lowest  permissible  subscript  value  Is  1.  The  highest 
permissible  subscript  value  In  any  particular  case  Is  the  maximum 
number  of  occurrences  of  the  Item  as  expressed  in  the  OCCURS 
clause. 

• When  a data-name  is  used  as  a subscript,  it  may  be  used 
to  refer  to  items  within  many  different  tables.  These  tables 
need  not  have  elements  of  the  same  size.  The  data-name  may  also 
appear  as  the  only  subscript  with  one  item  and  as  one  of  two  or 
three  subscripts  with  another  item.  Also,  it  is  permissible  to 
mix  literal  and  data-name  subscripts. 

For  example: 
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• Another  method  of  referring  to  items  in  a table  is  index- 
ing. To  use  this  technique  the  programer  assigns  one  or  more 
index-names  to  an  item  whose  data  description  contains  an  OCCURS 
clause.  An  index  is  assigned  to  a given  level  of  a table  by  using 
the  INDEXED  BY  clause  in  the  definition  of  the  table. 

FORMAT. 

• The  following  are  formats  of  the  OCCURS  clause  showing  how 
an  index -name  is  assigned  through  use  of  the  INDEXED  BY  clause. 

Format  1. 


OCCURS  integer-2  TIMES 
r ( ASCENDING 


KEY  IS  data-name-2  data-name 


DESCENDING 


d 


C 


INDEXED  BY  index-name-1 


[ 


index-name-2 


] •••] 


Format  2. 
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2. 5. 3. 3 OCCURS  STATEMENT.  (Cont.) 

Ac  object  time  Che  concenCs  of  Che  Index-name  will 
correspond  Co  an  occurrence  number  for  ChaC  specific  dimension 
of  Che  cable  Co  which  Che  index-name  was  assigned. 

• The  OCCURS  clause  may  noc  be  specified  in  a daCa  descr ip- 
cion  encry  ChaC: 

Has  a level-01  or  level-77  number. 

Describes  an  icem  whose  size  is  variable  (Che  number  of 
Cimes  Che  icem  may  occur  can  be  variable). 

• DaCa-name-1,  Che  objecC  of  Che  DEPENDING  opCion  has  Che 
following  resCriccions: 

MusC  be  described  as  a posicive  inCeger. 

MusC  noC  exceed  inCeger-2  in  value. 

MusC  noC  be  subscripCed. 

MusC  noC  appear  in  Che  variable  porcion  of  Che  record. 

• Any  DaCa  Division  encry  which  concains  an  OCCURS  DEPENDING 
clause  or  which  has  a subordinate  encry  which  contains  a 
DEPENDING  clause,  cannot  be  the  object  of  a REDEFINES  clause. 

KEY  OPTION:  The  KEY  option  is  used  in  conjunction  with  the 
INDEXED  BY  option  in  the  execution  of  a SEARCH  ALL  statement. 

The  KEY  opCion  is  used  to  indicate  that  the  repeated  data  is 
arranged  in  ASCENDING  or  in  DESCENDING  order,  according  to  the 
values  contained  in  data-name-2,  data-name-3,  etc. 

• Data-name-2  must  be  either  the  name  of  the  entry  contain- 
ing an  OCCURS  clause,  or  it  must  be  an  entry  subordinate  to  the 
entry  containing  the  OCCURS  clause.  If  data-name-3  is  the  subject 
of  this  table  entry,  it  is  the  only  key  that  may  be  specified  for 
this  table.  If  data-name-3  is  not  the  subject  of  this  table 
entry,  all  the  keys  identified  by  data-name-2,  data-name-3,  etc.: 

Must  be  subordinate  to  the  subject  of  the  table  entry 

itself . 
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2. 5. 3. 3 OCCURS  STATEMENT.  (Cont.) 

Must  not  be  subordinate  to  any  other  entry  that  contains 
an  OCCURS  clause. 

Must  not  themselves  contain  an  OCCURS  clause. 

e When  the  KEY  option  is  specified,  the  following  rules 
apply: 

Keys  must  be  listed  in  decreasing  order  of  significance. 

The  total  number  of  keys  for  a given  table  element  must 
not  exceed  12. 

The  sum  of  the  lengths  of  all  the  keys  associated  with 
one  table  element  must  not  exceed  256. 

A key  may  have  the  following  usages:  DISPLAY, 
COMPUTATIONAL- 3,  or  COMPUTATIONAL. 
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2 . 5 . 3 . 4 Indexing. 

DIRECT  INDEXING.  The  INDEXED  BY  option  of  the  OCCURS  clause 
refers  to  data-names  accessed  by  indexing.  Direct  indexing  is 
specified  when  a reference  is  made  to  a table  element,  and  the 
item  is  followed  by  its  related  index-name. 

• The  index-name (s)  is  not  defined  elsewhere  in  the  pro- 
gram, since  its  allocation  and  format  are  dependent  on  the  system, 
and,  not  being  data,  cannot  be  associated  with  any  data  hierarchy. 

• The  number  of  index-names  for  a Data  Division  entry  must 
not  exceed  twelve. 

a An  index-name  must  be  initialized  through  a SET  statement 
before  it  is  used. 

• Each  index-name  is  a fullword  in  length  and  contains  a 
binary  value  that  represents  an  actual  displacement  from  the 
beginning  of  the  table  that  corresponds  to  an  occurrence  number 
in  the  table.  The  value  is  calculated  as  the  occurrence  number 
minus  one,  multiplied  by  the  length  of  the  entry  that  is  indexed 
by  this  index-name. 

EXAMPLE. 

For  example,  if  the  programmer  writes 


A OCCURS  15  TIMES  INDEXED  BY  Z PICTURE  IS  X(10). 


on  the  fifth  occurrence  of  'A' , the  binary  value  contained 
in  ’Z’  will  be: 


Z - (5  - 1)  * 10  - 40 


* ^ 


mm 
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2. 5. 3. 4 Indexing.  (Cont.) 


• Note  that,  for  a table  entry  of  variable  length,  the 
value  contained  in  the  index-name  entry  will  become  invalid  when 
the  table  entry  length  is  changed,  unless  the  user  issues  a new 
SET  statement  to  correct  the  value  contained  in  the  index-name. 


FORMAT 


• The  following  format  is  used  to  imply  that  a data-name 
belongs  to  a structure  with  three  nested  levels  of  occurs. 


( Index- 1 [,  Index- 2] 


data-name 


• Data-name  is  originally  defined  in  an  OCCURS  clause  as 
part  of  the  record  description  entries  in  the  Data  Division. 
OCCURS  clause  must  also  use  the  INDEXED  BY  option. 


• Index-1,  Index-2,  Index-3  must  correspond  to  the  index' 
names  assigned  in  the  INDEXED  BY  clause  in  the  Data  Division. 


RELATIVE  INDEXING.  Relative  indexing  is  specified  when  the 
index-name  is  followed  by  one  of  the  operators,  + or  -,  and  a 
numeric  literal.  The  numeric  literal  is  considered  to  be  an 
occurrence  number  and  is  converted  to  an  index  value  before  being 
added  to,  or  subtracted  from  the  corresponding  index-name. 


FORMAT 


• The  following  format  is  used  to  imply  that  a data-name 
belongs  to  a structure  with  three  nested  levels  of  OCCURS. 


data-name  (index-name-1 


integer  ] [ , index-name-3' 


index-name-2 
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2. 5. 3. 4 Indexing.  (Cont.) 

• Data-name  la  originally  defined  in  an  OCCURS  clause  as 
part  of  the  record  description  entries  in  the  Data  Division. 

The  OCCURS  clause  must  also  use  the  INDEXED  8Y  option  and  the 
index-names  used  in  the  Data  Division  must  correspond  to  those 
in  the  Procedure  Division.  Integer  must  be  a numeric  literal. 

INDEX  DATA  ITEM.  An  index  data  item  is  an  elementary  item 
(not  necessarily  connected  with  any  table)  that  can  be  used  to 
save  index-name  values  for  future  reference.  An  index  data  item 
must  be  assigned  an  index-name  value  (i.e.,  (occurrence  nupiber  - 
1)*  entry  length)  through  the  SET  statement.  Such  a value 
corresponds  to  an  occurrence  number  in  a table.  The  USAGE  IS 
INDEX  clause  allows  the  programer  to  specify  index-data-items. 

FORMAT. 


77  INDEX-ITEM  [ USAGE  IS  ] INDEX. 


• The  USAGE  IS  INDEX  clause  may  be  written  at  any  level.  If 
a group  item  is  described  with  the  USAGE  IS  INDEX  clause,  it  is 
the  elementary  items  within  the  group  that  are  index  data  items; 
the  group  itself  is  not  an  index  data  item,  and  the  group  name 
cannot  be  used  in  SEARCH  and  SET  statements  or  in  relation  con- 
ditions. The  USAGE  clause  of  an  elementary  item  cannot  contradict 
the  USAGE  clause  of  a group  to  which  the  item  belongs. 

• An  index  data  item  can  be  referred  to  directly  only  in  a 
SEARCH  or  SET  statement  or  in  a relation  condition.  An  index 
data  item  can  be  part  of  a group  which  is  referred  to  in  a MOVE 
or  an  input/output  statement.  When  such  operations  are  executed, 
however,  there  is  no  conversion  of  the  contents  of  the  index 
data  item. 

s An  index  data  item  cannot  be  a conditional  variable. 

S The  SYNCHRONIZED,  JUSTIFIED,  PICTURE,  BLANK  WHEN  ZERO, 
or  VALUE  clauses  cannot  be  used  to  describe  group  or  elementary 
items  described  with  the  USAGE  IS  INDEX  clause. 
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2 . 5 . 3 . 5 Procedure  Division  Considerations  for  Table  Handling. 

• The  SEARCH  and  the  SET  statements  may  be  used  to  facili- 
tate table  handling.  In  addition,  there  are  special  rules 
Involving  table  handling  elements  when  they  are  used  in  relation 
conditions. 

RELATION  CONDITIONS.  Comparisons  involving  index-names 
and/or  index  data  items  conform  to  the  following  rules: 

• The  comparison  of  two  index -names  is  actually  the  compar- 
ison of  the  corresponding  occurrence  numbers. 

• In  the  comparison  of  an  index-name  with  a data  item  (other 
than  an  index  data  item) , or  in  the  comparison  of  an  index-name 
with  a literal,  the  occurrence  number  that  corresponds  to  the 
value  of  the  index-name  is  compared  with  the  data  item  or  literal. 

• In  the  comparison  of  an  index  data  item  with  an  index- 
name  or  another  index  data  item,  the  actual  values  are  compared 
without  conversion. 

e Any  other  comparison  involving  an  index  data  item  is 
illegal. 

TABLE  LOOK-UP. 

• SEARCH  STATEMENT.  The  SEARCH  statement  is  used  to  search 
a table  for  an  element  that  satisfies  a specified  condition,  and 
to  adjust  the  value  of  the  associated  index-name  to  the  occur- 
rence number  corresponding  to  that  table  element. 


l ran  /» 
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(Cont.) 

Format  1 


SEARCH  identifier-1 


1 index-name-1 

> ] 

identifier-2  I 


[ AT  END  imperative-statemer.  t-l]  v 

f imperative-statement-2 

NEXT  SENTENCE 


[WHEN  condition-2 


imperative-statement-3 
NEXT  SENTENCE 


Format  2 


SEARCH  ALL  identifier-1  AT  END  imperative-statement-1 
f Data-name-1  r /-identif  ier-3 


cond i t ion-name 


A 


"n /-identif ier-3 
IS  EQUAL  TOW  literal- 1 
• J Arithmetic-expression 


4 


C /-identifier-4 

data-name-2  JlS  EQUAL  TOW  literal-2 

i.  J '^arithmetic-expression- 


cond it ion-name- 2 


lmperatlve-statement-2 
NEXT  SENTENCE 
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2 . 5 . 3 . 5 Procedure  Division  Considerations  for  Table  Handling. 
(Cont.) 

Identifier-1  must  not  be  subscripted  or  indexed.  Its 
description  must  contain  an  OCCURS  clause  with  the  INDEXED  BY 
option. 


Identifier-1  can  be  a data  item  subordinate  to  a data 
item  that  contains  an  OCCURS  clause,  thus  providing  for  a two  or 
three  dimensional  table.  An  index-name  must  be  associated  with 
each  dimension  of  the  table  through  the  INDEXED  BY  phrase  of  the 
OCCURS  clause.  Execution  of  a SEARCH  statement  causes  modifica- 
tion only  of  the  setting  of  the  index-name  associated  with 
identifier-1  (and,  if  present,  of  index-name-1  or  ldentif ier-2) . 
Therefore,  to  search  an  entire  two  or  three  dimensional  table,  it 
is  necessary  to  execute  a SEARCH  statement  several  times;  prior 
to  each  execution,  SET  statements  must  be  executed  to  adjust  the 
associated  index-names  to  their  appropriate  settings. 

In  the  AT  END  and  WHEN  options,  if  any  of  the  specified 
imperative  statement(s)  do  not  terminate  with  a GO  TO  statement, 
control  passes  to  the  next  sentence  after  execution  of  the  imper- 
ative statement. 

Format  1 Considerations  — Identifier-2,  when  specified, 
must  be  described  as  an  index  data  item,  or  it  must  be  a fixed- 
point  numeric  elementary  item  described  as  an  integer.  When  an 
occurrence  number  is  incremented,  identifier-2  is  simultaneously 
incremented  by  the  same  amount. 

Conditlon-1,  condltion-2,  etc.,  may  be  any  condition, 
as  follows: 


relation  condition 
class  condition 
condition-name  condition 
sign  condition 


r 
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2. 5. 3. 5 

Procedure  Division  Considerations 

for  Table  Handling. 

(Cont.) 


Upon  the  execution  of  a SEARCH  statement,  a serial  search 
takes  place,  starting  with  the  current  Index  setting. 

If,  at  the  start  of  the  SEARCH,  the  value  of  the  Index- 
name  associated  with  Identif ier-1  Is  not  greater  than  the  highest 
possible  occurrence  number  for  identifier-1,  the  following  actions 
take  place: 


:: 

\ 

V 

PI 

I 

i I 


1.  The  condition(s)  in  the  WHEN  option  are  evaluated 
in  the  order  they  are  written. 

2.  If  none  of  the  conditions  is  satisfied,  the  index- 
name  for  identifier- I is  incremented  to  reference 
the  next  table  element,  and  step  I is  repeated. 

3.  If,  upon  evaluation,  one  of  the  WHEN  conditions  is 
satisfied,  the  search  terminates  immediately,  and 
the  imperative-s tatement  associated  with  that 
condition  is  executed.  The  index-name  points  to 
the  table  element  that  satisfied  the  condition. 

4.  If  the  end  of  the  table  is  reached  without  the 
WHEN  condition  being  satisfied,  the  search 
terminates  as  described  in  the  next  paragraph. 

If  at  the  start  of  the  search,  the  value  of  the  index- 
name  associated  with  identif ier-I  is  greater  than  the  highest 
permissible  occurrence  number  for  identif ier-1,  the  search  is 
terminated  immediately,  and  if  the  AT  END  option  is  specified, 
lmperative-8tatement-l  is  executed.  If  this  option  is  omitted, 


When  the  VARYING  index-name- 1 option  is  specified 
of  the  following  applies: 


If  index-name- 1 is  one  of  the  indexes  for 
Identif ier-1,  index-name- 1 is  used  for  the  search 
Otherwise,  the  first  (or  only)  index-name  for 
ldentifier-1  is  used. 
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2 . 5 . 3 . 5 Procedure  Division  Considerations  for  Table  Handling. 

(Cont.) 

2.  If  Index-name- 1 is  an  index  for  another  table 
entry,  then  when  the  index-name  for  identifier-1 
is  incremented  to  represent  the  next  occurrence  of 
the  table,  lndex-name-1  is  simultaneously  incre- 
mented to  represent  the  next  occurrence  of  the 
table  it  indexes. 

Format  2 Considerations  — The  first  index-name  assigned 
to  identifier-1  will  be  used  for  the  search. 

The  description  of  identifier-1  must  contain  the  KEY 
option  in  its  OCCURS  clause. 

Condition-1  must  consist  of  one  of  the  following: 

1.  A relation  condition  incorporating  the  EQUALS, 

EQUAL  TO,  or  equal  sign  ( - ) relation.  Either 
the  subject  or  the  object  (but  not  both)  of  the 
relation-condition  must  consist  solely  of  one  of 
the  data-names  that  appear  in  the  KEY  clause  of 
identif ler-1. 

2.  A condition-name  condition  in  which  the  VALUE 
clause  describing  the  condition-name  consists  of  a 
single  literal  only.  The  conditional  variable 
associated  with  the  condition- name  must  be  one  of 
the  data-names  that  appear  in  the  KEY  clause 

of  identifier-1 . 

3.  A compound  condition  formed  from  simple  conditions 
of  the  types  described  above,  with  AND  as  the  only 
connective. 

Any  data-name  that  appears  in  the  KEY  clause  of 
identifier-1  may  be  tested  in  condition-1.  However,  all  data- 
names  in  the  KEY  clause  preceding  the  one  to  be  tested  must  also 
be  so  tested  in  condition-1.  No  other  tests  may  be  made  in 
condition-1 . 
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2. 5. 3. 5 Procedure  Division  Considerations  for  Table  Handling. 
(Cont.) 

The  example  below,  FIGURE  2-35,  shows  the  use  of  a 
Format  1 SEARCH  statement  with  two  WHEN  options. 


77  I PICTURE  S9(4)  USAGE  IS  INDEXED. 


05  A OCCURS  10  TIMES  ASCENDING  KEY  IS  KEY1,  KEY2,  KEY3,  KEY 4 
INDEXED  BY  I 
10  KEY1  PICTURE  S9. 

10  KEY 2 PICTURE  S99. 

10  KEY 3 PICTURE  S9. 

10  KEY4  PICTURE  S9. 

88  BLUE  VALUE  1. 


in  the  Procedure  Division,  valid  WHEN  phrases  could  be: 

WHEN  KEY1  (I)  - 3 AND  KEY 2 (I)  - 10  AND  KEY 3 (I)  « 5 

WHEN  KEY1  (I)  - 3 AND  KEY 2 (I)  - VALUE- 1 
AND  KEY 3 (I)  - 5 AND  BLUE  (I)  ... 


FIGURE  F-35 


During  execution  of  a Format  2 SEARCH  statement,  a binary 
search  takes  place;  the  setting  of  index-name  is  varied  during  the 


search  so  that  at  no  time  is  it  less  than  the  value  that  corre- 
sponds to  the  first  element  of  the  table,  nor  is  it  ever  greater 
than  the  value  that  corresponds  to  the  last  element  of  the  table. 
If  condition-1  cannot  be  satisfied  for  any  setting  of  the  index 
within  this  permitted  range,  control  is  passed  to  imperative- 
statement-1  when  the  AT  END  option  appears  or  to  the  next  sentence 
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when  this  clause  does  not  appear.  In  either  case,  the  final 
setting  of  the  index  is  not  predictable.  If  the  index  indicates 
an  occurrence  that  allows  condition-1  to  be  satisfied,  control 


passes  to  imperative-statement-2. 


• SET  STATEMENT . The  SET  statement  establishes  reference 
points  for  table  handling  operations  by  setting  index-names  to 
values  associated  with  table  elements.  The  SET  statement  must  be 
used  when  initializing  index-name  values  before  execution  of  a 
SEARCH  statement,  it  may  also  be  used  to  transfer  values  between 
index-names  and  other  elementary  data  items. 


Format  1. 


Format  2. 


All  identifiers  must  name  either  index  data  it^ms  or 
fixed-point  numeric  elementary  items  described  as  integers; 
however,  identif ier-4  must  not  name  an  index  data  item.  When  a 
^^era^-  used,  it  must  be  a positive  integer.  Index-names 
are  related  to  a given  table  through  the  INDEXED  BY  option  of 
the  OCCURS  clause;  when  index-names  are  specified  in  the  INDEXED 
BY  option,  they  are  automatically  defined. 
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2 . 5 . 3 . 5 Procedure  Division  Considerations  for  Table  Handling. 

(Cont.) 

All  references  to  Index-name- 1,  identif ier-1 , and 
Index-name -4  apply  equally  to  Index-name- 2 , identifier-2,  and 
index-name-5,  respectively. 

Format  1 Considerations  — When  the  SET  statement  is 
executed,  one  of  the  following  actions  occurs: 

1.  Index-name-1  is  converted  to  a value  that  corre- 
sponds to  the  same  table  element  to  which  either 
index-name-3  is  an  index  data  item,  or  if  index- 
name-3  is  related  to  the  same  table  as  index- 
name-1,  no  conversion  takes  place.  Both  before 
and  after  the  execution  of  the  SET  statement  the 
resultant  value  of  index-name  must  correspond  to 
an  occurrence  number  of  an  element  in  the 
associated  table. 

2.  If  identifier-1  is  an  index  data  item,  it  is  set 
equal  to  either  the  contents  of  index-name-3  or 
identifier-3,  where  identifier-3  is  also  an  index 
data  item.  Literal-1  cannot  be  used  in  this  case. 

3.  If  identifier-1  is  not  an  index  data  item,  it  is 
set  to  an  occurrence  number  that  corresponds  to 
the  value  of  index-name-3.  Neither  identifier-3 
nor  literal-1  can  be  used  in  this  case. 

Format  2 Considerations  — When  the  SET  statement  is 
executed,  the  contents  of  index-name-4  (and  index-name-5,  etc., 
if  present)  are  incremented  (UP  BY)  or  decremented  (DOWN  BY)  by 
a value  that  corresponds  to  the  number  of  occurrences  represented 
by  the  value  of  literal-2  or  Identif ier-4. 

Data  in  the  following  chart  represents  the  validity  of 
various  operand  combinations  in  the  SET  statement. 
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2. 5. 3.5  Procedure  Division  Considerations  for  Table  Handling. 
(Cont.) 


SENDING  ITEM 

RECEIVING  ITEM 

Integer  Data  Item 

Index-name 

Indes  Data  Item 

Integer  Literal 

No 

Valid 

No 

Integer  Data  Item 

No 

Valid 

No 

Index-Name 

Valid 

Valid 

Valid* 

Index  Data  Item 

No 

Valid* 

Valid* 

NOTE:  No  conversion  takes  place. 


! 

i 

I 


• SAMPLE  TABLE  HANDLING  PROGRAM.  Refer  to  FIGURE  2-36 
(page  2-337). 

The  program  below  illustrates  the  Table  Handling  feature, 
including  the  use  of  indexing,  of  the  SET  statement,  and  of  the 
SEARCH  statement  (including  the  VARYING  option  and  the  SEARCH 
ALL  format). 

The  census  bureau  uses  the  program  to  compare: 

1.  the  number  of  births  and  deaths  that  occurred  in 
any  one  of  the  50  states  in  any  one  of  the  past 
20  years  with  - 

2.  the  total  number  of  births  and  deaths  that  occurred 
in  the  same  state  over  the  entire  20-year  period. 


I 
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2 . 5 . 3 . 5 Procedure  Dlvlalon  Considerations  for  Table  Handling. 
(ConC.) 

The  input  file,  INCARDS,  contains  the  specific  information 
upon  which  the  search  of  the  table  is  to  be  conducted.  INCARDS 
is  formatted  as  follows: 


i STATE- NAME 

a 4-character  alphabetic  abbreviation  of  the 
state  name 

SEXCODE 

1 = male;  2 ■ female 

YEARCODE 

a 4-digit  field  in  the  range  1950  through  1969 

A typical  run  might  determine  the  number  of  females  born 
in  New  York  in  1953  as  compared  with  the  total  number  of  females 
born  in  New  York  in  the  past  20  years. 


IDENTIFICATION  DIVISION. 

PROGRAM- ID.  TABLES. 

ENVIRONMENT  DIVISION. 

CONFIGURATION  SECTION. 

SOURCE-COMPUTER.  IBM-360. 
OBJECT-COMPUTER.  IBM-360. 

INPUT-OUTPUT  SECTION. 

FILE-CONTROL. 

SELECT  INFILE  ASSIGN  TO  UT-S-INTAPE. 
SELECT  OUTFILE  ASSIGN  TO  UT-S-PRTOUT. 
SELECT  INCARDS  ASSIGN  TO  UT-S-1CARDS. 


FIGURE  2-36 
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DATA  DIVISION. 

FILE  SECTION. 

FD  INFILE  LABEL  RECORDS  ARE  OMITTED. 
01  TABLE  PIC  X (28200). 

01  TABLE-2  PIC  X(1800). 

FD  OUTFILE  LABEL  RECORDS  ARE  OMITTED. 
01  PRTLINE  PIC  X(133) . 

FD  INCARDS  LABEL  RECORDS  ARE  OMITTED. 
01  CARDS. 

02  STATE-NAME  PIC  X(4). 


02 

SEXCODE 

PIC  9(4). 

02 

YEARCODE  PIC  9(4). 

02 

FILLER 

PIC  X(7 1) . 

WORKING- 

-STORAGE 

; SECTION. 

01 

PRTAREA-20 . 

02 

FILLER 

PIC  X VALUE 

SPACES. 

02 

YEARS-20  PIC  9(4). 

02 

FILLER 

PIC  X (3)  VALUE  SPACES. 

02 

BIRTH-20  PIC  9(7). 

02 

FILLER 

PIC  X(3)  VALUE  SPACES. 

02 

DEATHS- 

20  PIC  9(7) 

• 

02 

FILLER 

PIC  X(108) 

VALUE  SPACES 

01 

PRTAREA . 

02 

FILLER 

PIC  X 

02 

YEAR 

PIC  9(4). 

02 

FILLER 

PIC  X(3)  VALUE  SPACES. 

02 

BIRTHS 

PIC  9(5). 

02 

FILLER 

PIC  X(3)  VALUE  SPACES. 

02 

DEATHS 

PIC  9(5). 

02 

FILLER 

PIC  X( 1 1 2) 

VALUE  SPACES 

FIGURE  2-36  (Cont.) 
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01  CENSUS-STATISTICS-TABLE. 

02  STATE-TABLE  OCCURS  50  TIMES  INDEXED  BY  ST. 

03  STATE-ABBREV  PICX(4). 

03  SEX  OCCURS  2 TIMES  INDEXED  BY  SE. 

04  STATISTICS  OCCURS  20  TIMES  ASCENDING  KEY  IS  YEAR 
INDEXED  BY  YR. 

05  YEAR  PIC  9(4). 

05  BIRTHS  PIC  9(5). 

05  DEATHS  PIC  9(5). 

01  STATISTICS-LAST-20-YRS . 

02  SEX-20  OCCURS  2 TIMES  INDEXED  BY  SE-20. 

03  STATE- 20  OCCURS  50  TIMES  INDEXED  BY  ST-20. 

04  YEARS- 20  PIC  9(4). 

04  BIRTHS- 20  PIC  9(7). 

04  DEATHS-20  PIC  9(7). 

PROCEDURE  DIVISION. 

OPEN-FILES. 

OPEN  INPUT  INFILE  INCARDS  OUTPUT  OUTF1LE. 

READ-TABLE. 

READ  INFILE  INTO  CENSUS-STATISTICS-TABLE 
AT  END  GO  TO  READ-CARDS. 

READ  INFILE  INTO  STATISTICS-LAST-20-YRS 
AT  END  GO  TO  READ-CARDS. 

READ-CARDS . 

READ  INCARDS 

AT  END  GO  TO  EOT. 

DETERMINE-ST . 

SET  ST  ST- 20  TO  1 . 

SEARCH  STATE-TABLE  VARYING  ST-20  AT  END  GO  TO  ERROR-MSG-1 
WHEN  STATE-NAME  - STATE-ABBREV  (ST)  NEXT  SENTENCE. 
DETERMINE-SE . 

SET  SE  SE-20  TO  SEXCODE. 

DETERMINE-YR . 

SEARCH  ALL  STATISTICS  AT  END  GO  TO  ERROR-MSG-2 

WHEN  YEAR  OF  STATISTICS  (ST,  SE,  YR)  - YEARCODE 
GO  TO  WRITE-RECORD. 


FIGURE  2-36  (Cont.) 
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ERROR-MSG-1. 

DISPLAY  "INCORRECT  STATE"  STATE-NAME. 

CO  TO  WRITE-RECORD. 

ERROR-MSG-2 . 

DISPLAY  "INCORRECT  YEAR"  YEARCODE. 

GO  TO  READ-CARDS. 

WRITE-RECORD. 

MOVE  CORRESPONDING  STATISTICS  (ST,  SE,  YR)  TO  PRTAREA. 
WRITE  PRTLINE  FROM  PRTAREA  AFTER  ADVANCING  3. 

MOVE  CORRESPONDING  STATE-20  (SE-20,  ST-20)  TO  PRTAREA-20 . 
WRITE  PRTLINE  FROM  PRTAREA-20  AFTER  ADVANCING  1. 

GO  TO  READ-CARDS. 

EOJ. 

CLOSE  INFILE  INCARDS  OUTFILE. 

STOP  RUN. 


FIGURE  2-36  (Cont.) 


VENDORS'  GUIDELINES.  None. 


CSC  GUIDELINES. 


• In  order  to  facilitate  ease  of  program  debugging  and 
maintenance,  use  of  compound  conditional  statements  in  con- 
junction with  the  search  verb  should  be  avoided  if  at  all 
possible. 

• Indexing  is  a more  efficient  means  of  searching  a table 
and  is  the  preferred  procedure. 
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• Programers  should  ensure  program  logic  includes  checks 
to  verify  that  subscripts  and  indices  do  not  exceed  maximum 
values  as  defined  in  the  appropriate  OCCURS  clause. 


• Subscripting  will  be  limited  to  a maximum  of  three 
levels.  Subscripting  beyond  one  level  should  be  avoided  if 
possible. 


• SEARCH  ALL  verb  should  be  used  instead  of  the  SEARCH 
verb  for  large  tables  unless  the  following  situations  exist: 


The  keys  of  the  table  being  searched  are  not  sequenced 
The  SEARCH  ALL  verb  requires  sequenced  keys  - SEARCH  verb  does 
not. 


The  elements  of  the  table  will  have  a high  frequency  of 
hits,  which  will  take  place  in  the  same  sequence  as  the  table 
keys;  i.e.,  the  search  can  continue  where  the  last  one  left  off 
rather  than  needing  to  start  at  the  front,  and  probably  will 
require  very  few  iterations  before  the  next  hit  is  made.  Random 
searching  of  any  large  table  almost  always  favors  SEARCH  ALL. 


When  neither  of  the  above  conditions  exist,  the  follow- 
ing criteria  can  be  used  to  decide  when  to  use  one  version  or 
the  other.  If  the  table  contains  more  than  25  to  30  valid  codes 
to  be  searched,  the  SEARCH  ALL  verb  is  more  efficient.  If  less, 
use  the  SEARCH  verb. 


• Refer  to  USACSCM  Executive  Software  Manual  18-2  for  OS 
and  DOS  table  handling  routines. 
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2.5.4  SOURCE  PROGRAM  LIBRARY  FACILITY. 

2. 5. 4.1  Introduction  to  Copy  Library  Facility. 

• The  COBOL  Source  Program  Library  Facility  provides  a 
capability  for  specifying  text  that  is  to  be  copied  from  a 
library.  These  texts  are  available  for  copying  at  compile  time 
using  the  COPY  statement.  The  effect  of  the  COPY  statement  is 
to  insert  text  into  the  source  program  where  it  will  be  treated 
as  part  of  the  source  program. 

LIBRARY . The  COBOL  text  is  placed  on  a user  maintained 
library.  The  routines  for  placing  this  text  on  the  library  and 
updating  the  text  are  designated  by  each  vendor.  Retrieval  of 
the  text  is  accomplished  using  the  COPY  statement.  See 
paragraph  2. 5. 4. 2. 

LIBRARY  MAINTENANCE  AND  CONTROL.  Development,  maintenance 
and  control  of  the  system/ subsystem  copy  libraries  and  its 
members  is  the  responsibility  of  the  system  coordinator  appointed 
by  the  ASD.  Entries  to  the  library  will  conform  to  the  defini- 
tions contained  in  the  CSC  Data  Element  Dictionary.  Once  the 
standards  are  established  and  loaded  into  user  libraries  (copy, 
source,  etc.,  library),  they  are  easily  retrieved  and  the  stan- 
dard is  perpetuated  throughout  all  programs  in  the  system. 
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2. 5. 4. 2 COPY  STATEMENT. 

• The  COPY  statement  may  be  used  in  the  ENVIRONMENT 
DIVISION,  DATA  DIVISION,  and  PROCEDURE  DIVISION.  Prewritten 
source  program  entries,  such  as  standard  file  descriptions, 
record  descriptions,  or  procedures,  may  be  included  in  the 
source  listing  without  RECODING  them. 

• The  source  listing  produced  using  the  copy  statement 
varies  from  vendor  to  vendor.  In  some  instances,  the  COPY  state- 
ment itself  is  included  in  the  printed  listing  as  comments  with 
the  copied  text  following  it.  In  other  cases,  the  COPY  statement 
is  completely  replaced  by  the  copied  text.  (See  VENDORS' 
GUIDELINES.) 

• The  full  format  for  the  COPY  statement  is  shown  under 
Language  Elements  'COPY  Statement'.  The  general  formats  for  use 
of  the  COPY  statement  are  shown  in  the  table  on  the  following 
pages . 

USAGES  OF  COPY  STATEMENT 


ation  1 (within  the  CONFIGURATION  Section): 
SOURCE-COMPUTER.  COPY  statement. 
OBJECT-COMPUTER.  COPY  statement. 


)tion  2 (within  the  INPUT-OUTPUT  Section): 
FILE-CONTROL.  COPY  statement. 
I-O-CONTROL.  COPY  statement. 


Option  3 

(within  the  FILE  Section) : 

FD 

file-name  COPY  statement. 

SD 

sort-file-name  COPY  statement. 

' 
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2. 5. 4. 2 COPY 

STATEMENT.  (Cont.) 

USAGES  OF  COPY  STATEMENT  (Cont.) 

± (within  the  DATA  DIVISION): 
01  data-name  COPY  statement. 


(within  the  WORKING- STORAGE  Section  or  LINKAGE 
Section) : 

data-name  COPY  statement. 


Option  6 

(within  the 
Section) : 

WORKING-STORAGE  Section 

or  LINKAGE 

77 

data-name-1 

REDEFINES  data-name-2 

COPY  statement . 

01 

data-name-1 

REDEFINES  data-name-2 

COPY  statement. 

_7  (within  PROCEDURE  DIVISION): 
section-name  SECTION.  COPY  statement, 
paragraph-name.  COPY  statement. 


GENERAL  RULES. 

• The  text  is  placed  on  the  library  using  a unique  entry 
name.  This  name  is  stored  as  a header  record  for  identification 
of  the  entry  and  is  not  part  of  the  text.  When  the  text  is 
retrieved  from  the  library,  only  the  text  is  copied,  not  the 
entry  name. 
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• When  Che  COPY  statement  is  used  for  01-level  record 
descriptions  or  77-level  data  item  descriptions  in  the  DATA 
DIVISION,  the  programer  coded  01-level  or  77-level  name  replaces 
the  01-level  or  77-level  name  from  the  library  on  the  compiled 
source  listing. 


If  a reference  is  made  in  an  OCCURS. . .DEPENDING  ON  clause 
to  the  original  01  or  77-level  name  on  the  library,  this  refer- 
ence must  be  changed  by  using  the  REPLACING  option  of  the  COPY 
statement.  (See  EXAMPLES  2 and  3.) 


The  library  name  and  text  are  unchanged  in  the  library 


• When  the  COPY  statement  is  used  in  the  PROCEDURE 
DIVISION,  the  copy  statement  as  written  by  the  programer  is 
completely  replaced  by  the  copied  text.  (See  EXAMPLE  4.) 


VENDORS'  GUIDELINES 


• When  the  COPY  statement  is  used  in  the  ENVIRONMENT 
DIVISION  or  for  catalogued  file  descriptions  in  the  DATA 
DIVISION,  the  compiler  prints  out  the  COPY  statement  as  written 
by  the  programer  with  the  copied  text  following  it.  (See 
EXAMPLE  1.) 


• IBM  allows  the  retrieval  of  the  data  from  tne  copy 
library  two  ways:  the  use  of  the  COPY  statement  in  the  source 
coding  and  the  use  of  the  BASIS  card  in  the  Job  Control 
Language  (JCL)  in  the  compile  deck. 


• The  IBM  compiler  flags  each  statement  copied  from  a 
library  with  a 'C'  preceding  the  sequence  number  on  the 
resultant  source  listing. 


EXAMPLES . The  following  examples  in  FIGURE  2-37  illustrate 
the  use  of  the  COPY  statement.  The  examples  start  in  column  7. 
Any  vendor's  indicators  flagging  copied  statements  are  not  shown 


CSC  GUIDELINES.  None 
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* EXAMPLE  1. 

* THIS  EXAMPLE  ILLUSTRATES  THE  COPYING  OF  AN  FD. 


* THE  FOLLOWING  ENTRY  IS  A MEMBER  OF  A COPY  LIBRARY. 

* THIS  ENTRY  HAS  A LIBRARY  ENTRY  NAME  OF  PAYFILEA. 


LABEL  RECORDS  ARE  STANDARD 
RECORDING  MODE  IS  F 
RECORD  CONTAINS  100  CHARACTERS 
BLOCK  CONTAINS  500  CHARACTERS 
DATA  RECORD  IS  PAYREC-A. 

01  PAYREC-A  PIC  X(100). 


* THE  FOLLOWING  CODING  WAS  INCLUDED  IN  A SOURCE  LISTING. 


It 


FD  PAYFILE  COPY  PAYFILEA. 


* THE  FOLLOWING  IS  THE  RESULTANT  CODING  PRODUCED  BY  THE 

* COMPILER  FROM  THE  ABOVE  LIBRARY  ENTRY  AND  COPY  STATEMENT. 

FD  PAYFILE  COPY  PAYFILEA. 

FD  PAYFILE 

LABEL  RECORDS  ARE  STANDARD 
RECORDING  MODE  IS  F 
RECORD  CONTAINS  100  CHARACTERS 
BLOCK  CONTAINS  500  CHARACTERS 
DATA  RECORD  IS  PAYREC-A. 

01  PAYREC-A  PIC  X(100) . 


i 


' ! 

1 


i 

* 

I 

I 
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* EXAMPLE  2. 


* 

THIS 

EXAMPLE  ILLUSTRATES 

THE  COPYING  OF  01 -LEVEL  RECORD 

* 

DESCRIPTIONS. 

•k 

THE 

FOLLOWING  ENTRY  IS  A 

MEMBER  OF  A COPY  LIBRARY. 

* 

THIS 

ENTRY  HAS  A LIBRARY 

ENTRY  NAME  OF  PAYREC-2. 

01 

PAYREC-2 . 

05 

PAYREC-GRADE 

PIC  99. 

05 

PAYREC-RATE 

PIC  S9(5)  COMP-3. 

05 

PAYREC-HOURS 

PIC  S9 (3)  COMP- 3. 

05 

PAYREC-CODE 

OCCURS  1 TO  18  TIMES 

DEPENDING  ON 

PAYREC-GRADE  OF  PAYREC-2 

PIC  XX. 

05 

FILLER 

PIC  X(57)  . 

* 

THE 

FOLLOWING  CODING  WAS 

INCLUDED  IN  A SOURCE  LISTING. 

01 

PAYREC-B  COPY  PAYREC-2. 

A 

THE 

FOLLOWING  IS  THE  RESULTANT  CODING  PRODUCED  BY  THE 

A 

COMPILER  FROM  THE  ABOVE 

LIBRARY  ENTRY  AND  COPY  STATEMENT. 

01 

PAYREC-B  COPY  PAYREC-2. 

01 

PAYREC-B. 

05 

PAYREC-GRADE 

PIC  99. 

05 

PAYREC-RATE 

PIC  S9 (5)  COMP-3. 

05 

PAYREC-HOURS 

PIC  S9 (3)  COMP-3. 

05 

PAYREC-CODE 

OCCURS  1 TO  18  TIMES 

DEPENDING  ON 

PAYREC-GRADE  OF  PAYREC-2 

PIC  XX. 

05 

FILLER 

PIC  X(57)  . 

A 

NOTE 

THAT  THE  QUALIFIER 

PAYREC-2  IN  THE  DEPENDING  ON  OPTION 

A 

OF  THE  OCCURS  CLAUSE  DID 

NOT  CHANGE.  THIS  MUST  BE 

A 

ACCOMPLISHED  USING  THE  REPLACING  OPTION  OF  THE  COPY  STATEMENT 

FIGURE  2-37  (Cont.) 
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* EXAMPLE  3. 

* THIS  EXAMPLE  ILLUSTRATES  THE  USE  OF  THE  REPLACING  OPTION  OF 

* THE  COPY  STATEMENT.  THE  COPY  LIBRARY  MEMBER  FROM  EXAMPLE  2 

* IS  USED  FOR  THIS  EXAMPLE. 

* THE  FOLLOWING  CODING  WAS  INCLUDED  IN  A SOURCE  LISTING. 

01  PAYREC-B  COPY  PAYREC-2  REPLACING  PAYREC-2 

BY  PAYREC-B. 


* THE  FOLLOWINC  IS  THE  RESULTANT  CODING  PRODUCED  BY  THE 

* COMPILER  FROM  THE  ABOVE  LIBRARY  ENTRY  AND  COPY  STATEMENT. 

01  PAYREC-B  COPY  PAYREC-2  REPLACING  PAYREC-2 

BY  PAYREC-B. 


01 

PAYREC-B. 

05 

PAYREC-CRADE 

PIC  99. 

05 

PAYREC-RATE 

PIC  S9(5) 

COMP- 3. 

05 

PAYREC-HOURS 

PIC  S9 (3) 

COMP- 3. 

05 

PAYREC-CODE 

OCCURS  1 TO 

18  TIMES 

DEPENDING  Oil 
PAYREC-C.RADE  OF  PAYREC-B 
PIC  XX. 

05  FILLER  PIC  X(57). 


NOTE  THAT  PAYREC-2  HAS  NOW  BEEN  CHANGED  TO  PAYREC-B  IN  ALL 
OCCURRENCES  IN  THE  RECORD. 


FIGURE  2-37  (Cont.) 
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2. 5. 4. 2 COPY  STATEMENT.  (Cont.) 


* EXAMPLE  4. 

* THIS  EXAMPLE  ILLUSTRATES  THE  COPYING  OF  PROCEDURES  INTO  A 

* SOURCE  PROGRAM. 


THE  FOLLOWING  ENTRY  IS  A MEMBER  OF  A COPY  LIBRARY. 
THIS  ENTRY  HAS  A LIBRARY  ENTRY  NAME  OF  STATE-TAX-RT. 


MULTIPLY  PAYREC-RATE  BY  PAYREC-HOURS 
GIVING  TOTAL. 

MULTIPLY  TOTAL  BY  .015  GIVING  STATE-TAX. 


THE  FOLLOWING  CODING  WAS  INCLUDED  IN  A SOURCE  LISTING. 


0010-ST-TAX-RTN . COPY  STATE-TAX-RT 

REPLACING  MULTIPLY  TOTAL  BY  .015  GIVING  STATE-TAX 
BY  MULTIPLY  TOTAL  BY  .020  GIVING  STATE-TAX. 


THE  FOLLOWING  IS  THE  RESULTANT  CODING  PRODUCED  BY  THE 
COMPILER  FROM  THE  ABOVE  LIBRARY  ENTRY  AND  COPY  STATEMENT. 


MULTIPLY  PAYREC-RATE  BY  PAYREC-HOURS 
GIVING  TOTAL. 

MULTIPLY  TOTAL  BY  .020  GIVING  STATE-TAX. 


FIGURE  2-17  (Cont.) 
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2.5.5  DEBUGGING  AIDS. 

2.5.5. 1 Introduction  to  Debugging  Aids. 

DEBUGGING  FEATURES.  The  debugging  features  available  in 
COBOL  are  designed  to  aid  the  programer  in  producing  an  error- 
free  program  in  the  shortest  possible  time.  Further,  the 
debugging  features  are  designed  to  permit  most  debugging  to  be 
accomplished  at  the  source  language  level.  Debugging  in  COBOL 
can  occur  at  two  points  in  the  program  production  process:  dur- 
ing compilation  and  during  execution  of  the  object  program.  In 
general,  debugging  during  compilation  deals  primarily  with  the 
removal  of  syntax  errors  from  the  source  program,  while  debugging 
during  execution  deals  with  the  removal  of  logical  errors  from 
the  object  program.  For  the  most  part,  the  COBOL  compiler 
detects  syntax  errors  in  the  source  program  and  advises  the  pro- 
gramer of  these  during  the  compilation  process.  The  programer 
can  then  correct  the  source  program  and  recompile,  repeating 
this  cycle  until  the  compiler  indicates  that  an  error-free  com- 
pilation has  occurred. 

At  this  point,  the  programer  is  ready  to  test  and  debug  the 
object  program  using  test  data.  The  compiler  provides  a debug- 
ging language  feature  for  this  phase  of  the  debugging.  This 
feature  enables  the  programer  to  insert  source  language  state- 
ments that,  when  compiled  and  executed  as  part  of  the  source 
program,  will  produce  outpjt  showing  the  flow  of  control  and  the 
values  of  selected  items  as  the  program  is  being  executed.  Based 
on  this  output,  the  programer  can  correct  the  source  program, 
recompile,  execute,  ano  reevaluate  the  new  output.  When  an 
error-free  object  program  has  been  obtained,  the  debugging  state- 
ments are  removed  from  the  source  program  and  the  program  is 
recompiled  producing  an  object  program  ready  for  execution  in  a 
production  mode. 

DESK-CHECKING . The  whole  idea  of  debugging  is  to  produce  a 
program  that  is  free  of  errors.  There  are  other  things  that  do 
aid  in  detecting  errors  and  can  therefore  be  included  under  the 
topic  of  debugging.  One  such  method  is  simple  desk-checking. 

The  following  is  a list  of  things  that  should  be  double  checked 
since  they  have  consistently  been  causes  for  errors  in  previous 
programs . 
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2.5.5. 1 Introduction  to  Debugging  Aids.  (Cont.) 

• Problems  that  arise  in  many  programs  are  the  result  of: 
Missing  or  misplaced  periods. 

Files  not  being  properly  opened  and  closed. 

Duplicate  paragraph  names. 

Misspelled  data-names,  reserved  words  and  procedure-names. 

Improper  characters  in  names  or  more  than  30  characters 
in  a name. 

Improper  use  of  the  VALUE  IS  clause.  The  VALUE  IS  clause: 

Must  be  compatible  with  the  class  of  the  item. 

Must  not  be  used  in  an  entry  with  an  OCCURS  clause. 

Must  not  be  used  in  an  entry  subordinate  to  an  OCCURS 
clause. 

Must  not  be  used  in  the  FILE  SECTION  of  the  DATA 
DIVISION. 

Must  not  be  used  in  an  entry  containing  an  edit 
picture. 

Misuse  of  the  OCCURS  clause.  The  OCCURS  must: 

Not  be  used  in  entries  with  levels  01,  77,  88. 

An  item  defined  with  an  OCCURS  clause  must  not  be 
referenced  without  a subscript. 

Alphanumeric  literals  requiring  more  than  one  line  must 
have  a hyphen  (-)  in  column  7 and  a quote  (')  in  column  24  of 
the  continuation  line. 

Misuse  of  the  REDEFINES  clause.  In  the  REDEFINES  clause: 

Multiple  redefinitions  must  be  at  the  same  level  with 
no  entries  intervening  at  the  same  level. 


2-351 


I 


i 

4 

: 


CSCM  18-1-1 


1 FEB  79 


2.5.5. 1 Introduction  to  Debugging  Aids.  (Cont.) 

Explicit  redefinition  may  not  occur  at  the  01  level 
in  the  FILE  SECTION. 

Values  of  subscripts  outside  of  their  range:  The  values 
in  a subscript  should  be  checked  to  assure  you  that  the  subscript 
has  not  gone  outside  of  its  range. 

DEBUGGING  FACILITY.  The  debugging  facility  consists  of  the 
Debugging  Packets  (IBM  Extension)  which  may  be  placed  at  the  end 
of  the  source  program.  A Debug  Packet  consists  of  any  COBOL 
statements  (including  three  which  are  provided  specifically  for 
Debug  Packets).  The  statements  must  be  introduced  by  a card 
containing  information  of  the  form, 


DEBUG  procedure-name 


where  DEBUG  must  appear  in  columns  1-5  and  the  procedure-name 
must  begin  in  column  12.  The  procedure-name  may  be  any  section 
or  paragraph-name  in  the  source  program. 

9 When  control  flows  to  a procedure-name  used  in  a Debug 
Packet  header  the  coding  in  that  packet  is  "performed"  before 
the  first  statement  in  the  procedure.  Falling  through  the  end 
of  the  coding  in  the  packet  causes  control  to  flow  to  the  first 
statement  in  the  procedure. 

• The  three  statements  provided  specifically  for  use  in 
Debug  Packets  are  discussed  on  the  following  pages.  These  state- 
ments should  be  used  only  in  Debug  Packets,  however,  programers 
may  utilize  these  statements  as  a stand-alone  technique  to 
ascertain  certain  logic  errors. 
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2. 5. 5. 2 EXHIBIT  (IBM  Extension; 


FUNCTION . EXHIBIT  is  used  (in  a Debug  Packet)  to  provide  a 
mechanism  for  the  production  of  output  to  display  the  values  of 
selected  data  items  during  the  debugging  of  an  object  program. 


FORMAT 


NAMED 

CHANGED  NAMED 
CHANGED 


EXHIBIT 


DEFINITIONS 


All  literals  in  this  statement  must  be  non-numeric 


• TALLY  is  the  only  Special  Register  that  can  be  used  as 
an  identifier  in  this  statement. 


RULES 


• The  combined  total  length  of  all  data  items  specified  in 
the  EXHIBIT  CHANGED  NAME  and  EXHIBIT  CHANGED  statements  in  one 
program  cannot  exceed  32,767  characters. 


The  length  of  any  one  identifier  including  any  quali 
i.e.,  the  name  itself — cannot  exceed  120  characters. 


The  value  of  any  named  identifier  cannot  exceed  256 


OPERATION 


• The  execution  of  an  EXHIBIT  statement  causes  a formatted 
display  of  the  identifiers  listed  in  the  NAMED,  CHANGED  NAMED, 
or  CHANGED  form.  The  format  of  the  data  displayed  by  the  EXHIBIT 
statement  is: 


CSCM  18-1-1  1 FEB  79 

& 

2. 5. 5. 2 EXHIBIT  (IBM  Extension).  (Cont.) 


original  identifier  (including  qualifiers,  if  written) 

blank 

equal  sign 

blank 

value  of  identifier 
blank 

These  items  are  displayed  horizontally  on  a line. 


• In  the  CHANGED  NAMED  form,  if  more  than  one  identifier 
has  been  specified,  only  those  whose  value  has  changed  are 
printed.  For  this  reason,  a fixed  columnar  format  for  the  data 
to  be  displayed  cannot  be  guaranteed  unless  all  operands  change 
between  each  statement  execution. 


• The  execution  of  the  EXHIBIT  CHANGED  statement  causes  a 
display  of  the  value  of  the  named  identifiers  whenever  a value 
has  changed  since  the  last  execution  of  the  statement.  This 
statement  does  not  print  the  name  of  the  identifier.  The  ini- 
tial time  this  statement  is  executed,  all  values  are  considered 
changed;  they  are  displayed  and  saved  for  the  purposes  of  com- 
parison the  next  time  the  statement  is  executed. 


• In  the  EXHIBIT  CHANGED  statement,  if  more  than  one  iden' 
tifier  has  been  specified  and  some  but  not  all  are  changed  from 
the  previous  execution,  only  the  changed  values  are  displayed. 
However,  positions  are  reserved  for  each  operand  and  these 
positions  contain  blanks  if  the  value  of  the  operand  has  not 
changed.  In  this  way,  a fixed  columnar  format  of  the  displayed 
output  is  created.  If  none  of  the  operands  have  changed,  this 
statement  prints  a blank  line. 
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2 . 5 . 5 . 3 ON  (IBM  Extension). 

FUNCTION . ON  is  used  (in  the  Debug  Packet)  to  provide  a 
conditional  counting  mechanism  to  control  the  execution  of 
debugging  statements. 

FORMAT. 


ON  integer-1  [AND  EVERY  integer-2]  [UNTIL  integer-3] 

imperative-statement  ELSE  statement  ... 

NEXT  SENTENCE  OTHERWISE  NEXT  SENTENCE 


DEFINITIONS . All  integers  must  be  positive  and  less  than 
the  value  of  16,777,215. 


OPERATION . The  condition  in  the  ON  statement  (integer-!  AND 
EVERY  integer-2  UNTIL  integer-3)  is  evaluated  as  follows: 


• Each  ON  statement  has  a compiler-generated  counter  asso- 
ciated with  it.  The  counter  is  initialized  to  zero  in  the  object 
program.  Each  time  the  path  of  program  flow  reaches  the  ON 
statement,  the  counter  is  incremented  by  one,  and  the  count- 
condition  (integer-1  AND  EVERY  integer-2  UNTIL  integer-3)  is 
tested . 


• If  the  count-condition  is  not  satisfied,  the  statement (s) 
(or  NEXT  SENTENCE)  following  ELSE/OTHERWISE  is  executed.  If  the 
ELSE/OTHERWISE  option  does  not  appear,  the  next  sentence  is 
executed. 


• The  count-condition  is  evaluated  as  follows 


CSCM  18-1-1 


1 FEB  79 


2. 5. 5. 3 ON  (IBM  Extension).  (Cont.) 

• If  only  integer-1  has  been  specified,  then  the  count- 
condition  is  satisfied  only  once:  when  the  path  of  program  flow 
has  reached  the  ON  statement  integer-1  times  — that  is,  when 
the  value  in  the  counter  equals  integer-1. 

• When  only  integer-1  and  integer-3  are  specified,  then  the 
value  of  integer-2  is  assumed  to  be  one,  and  the  count-condition 
is  satisfied  when  the  value  in  the  counter  is  any  value  within 
the  range  integer-1  through  integer-3. 

• If  only  integer-1  and  integer-2  are  specified,  then  the 
coun t-cond i t ion  is  satisfied  each  time  the  value  in  the  counter 
is  equal  to  integer- 1 + (integer-2  * K) , where  K is  any  positive 
integer  or  zero.  No  upper  limit  for  the  execution  of  the  On 
statement  is  assumed. 

• When  all  three  integers  are  specified,  then  the  count- 
condition  is  satisfied  as  in  the  last  preceding  case,  except  that 
an  upper  limit  beyond  which  the  count-condition  cannot  be  satis- 
fied is  specified.  The  upper  limit  is  integer-3. 
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2 . 5 . 5 . 4 TRACE  (IBM  Extension). 

FUNCTION.  TRACE  is  used  (in  a Debug  Packet)  to  provide  a 
mechanism  for  the  selective  production  of  output  to  display  the 
flow  of  control  during  the  debugging  of  an  object  program. 

a 

FORMAT. 


READY 

RESET 


TRACE 


OPERATION. 

• After  a READY  TRACE  statement  is  executed,  each  time  a 
paragraph  or  section  begins,  its  compiler-generated  card  number 
is  displayed  on  the  system's  output  device. 

• The  execution  of  a RESET  TRACE  statement  terminates  the 
function  of  a previous  READY  TRACE  statement. 

CSC  GUIDELINES.  The  execution  of  the  TRACE  statement  should 
be  used  in  a controlled  manner.  Programers  are  advised  to  READY 
and  RESET  TRACE  via  a conditional  statement  to  insure  low  volume 
usage. 

Example: 


IF  SOC-SEC-NO  is  greater  than  '215-44-3547' 


READY  TRACE 


IF  SOC-SEC-NO  is  greater  than  '223-28-4511' 


RESET  TRACE. 
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2 . 5 . 5 . 5 DOS  COBOL  Program  Debugging  Aids. 

• The  following  are  a few  pointers  to  aid  the  programer  In 
debugging  DOS  COBOL  programs.  The  necessary  tools  for  debugging 
from  a core  dump  are:  program  post  list,  core  dump,  and  Linkage 
Editor  Map. 

• Determine  the  COBOL  statement  that  generated  the  address 
of  the  program  check. 

The  top  of  the  system  dump  will  tell  you  the  address  of 
the  program  check  and  the  type  of  program  check.  Locate  the 
instruction  in  the  core  dump. 

Determine  the  relocation  factor  of  your  program  from  the 
Linkage  Editor  Map.  Subtract  the  relocation  factor  of  your 
program  in  the  Linkage  Editor  Map  from  the  address  of  the 
offending  instruction. 

The  address  that  results  may  be  located  in  the  Procedure 
Division  Map  generated  at  compile  time. 

Preceding  the  address  and  code  found  in  step  three,  you 
will  find  the  sequence  number  of  the  corresponding  COBOL  state- 
ment in  the  post  list  and  the  number  of  the  element  in  the 
sentence  that  generated  the  code. 

• Determine  if  the  COBOL  statement  is  coded  incorrectly. 

• If  the  statement  is  coded  correctly,  go  back  to  the  core 
dump  and  find  out  the  type  of  program  check. 

If  it  is  a data  exception,  you  will  probably  find  that 
the  instruction  is  a decimal  instruction  and  one  of  the  fields 
either  will  not  have  a valid  sign  or  will  contain  digits  other 
than  0 through  9.  To  determine  this,  it  will  be  necessary  to 
find  the  fields  in  core. 

Inspect  bits  4-7  of  the  low  order  byte  for  a valid  sign. 
If  one  is  not  present,  this  is  the  cause  of  the  program  check. 
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2. 5. 5. 6 Common  Causes  of  Errors. 

• Blanks  in  fields  defined  as  numeric. 

• Failing  to  initialize  counters  and  thus  not  insuring  a 
valid  beginning  value. 

• Moving  zeros  to  a group  level  item  to  zero  several 
fields  — a valid  sign  is  generated  only  for  the  lowest  order 
field. 

• Adding  into  a field  that  is  subscripted  can  cause  trouble 
if  care  is  not  taken  to  insure  that  the  subscript  does  not  get 
too  large. 

If  it  is  a protection  exception,  one  possible  cause  is 
that  a base  register  used  in  the  instruction  has  not  been  initial- 
ized. Base  registers  in  COBOL  are  initialized  at  different 
times.  For  input  files,  the  register  is  not  initialized  until  the 
first  successful  read;  they  are  not  initialized  when  the  files 
are  opened.  For  output  files,  the  registers  are  initialized  when 
they  are  opened.  When  faced  with  a protection  exception,  go  to 
the  COBOL  post  list  and  check  to  be  sure  that  no  data  has  been 
moved  prior  to  the  time  when  base  registers  will  be  initialized. 

If  an  addressing  or  specification  exception  occurs,  you 
may  (but  not  always)  find  upon  inspection  that  registers  have  been 
unexpectedly  modified  and  the  problem  becomes  one  of  the  finding 
out  how.  A possible  approach  is:  Check  the  addresses  in  register 
fourteen  and  fifteen  against  the  address  of  the  program  check 
instruction.  If  the  address  of  the  program  check  instruction  is 
equal  or  slightly  larger  than  the  address  in  register  fifteen, 
you  are  probably  in  a subroutine  and  the  address  in  register 
fourteen  should  be  your  return  address.  A BAL  or  BALR  instruction 
will  probably  precede  your  return  address.  Look  for  this 
particularly  when  the  problem  does  not  seem  to  be  with  a COBOL 
statement. 

• If  the  job  is  canceled  because  of  an  illegal  supervisor 
call  (SVC  32),  two  of  the  possible  causes  are  a wrong  length 
record  condition  occurred  or  the  problem  program  says  it  will 
handle  a file  in  a certain  manner  when,  in  fact,  it  does  not. 

One  method  of  investigating  the  cause  of  this  type  of  problem  is: 
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2. 5. 5. 6 Common  Causes  of  Errors.  (Cont.) 

Determine  the  module  that  contains  the  SVc  32  instruction 
from  the  error  address  given  with  the  error  message  (first  page 
DOS  core  dump)  and  the  relocation  factors  on  the  Linkage  Editor 
Map. 


If  the  instruction  is  located  in  the  lower  problem  pro- 
gram area,  you  probably  have  a wrong  length  record  error.  The 
file  name  (SYS  number)  of  the  file  on  which  this  occurred  will  be 
located  98  bytes  (Hex  '62')  ahead  of  the  SVC  32. 

If  the  instruction  is  located  in  a logic  module,  obtain 
the  listing  of  the  module  from  the  error  address.  The  resulting 
number  is  the  address  of  the  error  instruction  in  the  module 
post  list.  After  locating  the  offending  instruction,  you  will 
often  find  comments  which  will  point  you  toward  the  source  of  the 
trouble. 


Failure  to  clear  the  output  area,  clearing  the  output 
area  before  the  first  record  is  written  only  clears  the  first 
record  area  within  the  output  block. 

Failure  to  insure  that  a subscript  does  not  exceed  the 
range  of  the  associated  OCCURS  clause  may  lead  to  referencing 
incorrect  storage  locations. 

Branching  out  of  a perform  and  not  exiting  properly  may 
cause  trouble. 

Moving  any  data  to  or  from  any  I/O  area  before  opening 
the  file,  and  in  the  case  of  input  files  before  issuing  the  first 
successful  read. 

Attempting  to  read  from  a file  which  has  already  taken 
the  'AT  END'  branch  will  cause  trouble  for  the  programer. 
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2 . 5 . 5 . 7 Link  Edit  Map. 

• The  PHASE,  on  a Link  Edit  Map,  is  the  name  by  which  a 
program  was  cataloged  to  the  Core  Image  Library.  It  is  the  name 
by  which  a program  phase  is  . "rieved  from  the  core  image  library 
brought  into  main  storage  and  executed,  when  the  name  is  the 
phase-name  parameter  of  an  EXEC  control  statement.  Programs  that 
are  link-edited  and  executed  immediately,  from  the  transient  area 
of  the  core  image  library,  are  given  the  name  PHASE• * ***,  as  shown 
on  the  example  link  edit  map.  This  is  merely  a dummy  name  for 
all  phases  that  are  tested  before  cataloging  to  a permanent  loca- 
tion on  the  core  image  library. 

• XFR-AD  is  the  abbreviation  for  TRANSER  ADDRESS.  This 
column  on  the  link  edit  map  will  show  the  absolute  address  of  the 
first  instruction  of  the  COBOL  program's  Procedure  Division  in 
main  storage  when  the  program  is  to  be  executed. 

• LOCORE  indicates  the  absolute  address,  in  main  storage, 
of  the  beginning  of  the  area  immediately  following  the  LABEL 
PROCESSING  area. 

• H1C0RE  indicates  the  absolute  address  of  the  last  instruc 
tion  of  the  link-edited  program. 

• DSK-AD  is  the  disk  address,  on  the  systems  residence  disk 
pack  of  the  program. 

• ESP  TYPE  - External  Symbol  Dictionary.  This  column 
designates  the  elements,  or  Control  Sections  that  make  up  a 
program  — with  sub-elements  or  entries,  whether  program  phases 
or  overlays. 

• LABEL  - An  eight  character  name  of  a control  section, 
entry,  overlay  or  element  that  is  part  of  a program  phase. 

• Each  character  position,  or  group  of  character  positions, 
of  an  IBM  module  has  specific  meaning.  The  first  two  positions 

identify  the  type  of  module;  the  third  position  contains  a code 
which  represents  the  media  of  the  file;  the  fourth  position  will 
contain  a code,  for  data  file  modules,  which  represents  the 

recording  mode  of  the  records  in  the  file;  the  fifth  through 
eighth  positions  indicate  options  such  as: 
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• The  relative  positions  of  the  components  of  a COBOL  pro 
gram  in  core  will  generally  be  in  the  following  sequence  within 
the  background  partition: 


Supervisor  Work  Area 
Label  Processing  Area 
COBOL  Problem  Program 

WORKING- STORAGE  Data  Items 
Edit  Masks 
DTF  Tables 
Record  Buffers 
Initialization  Instructions 
Work  Area 

Literal  Pool  & Global  Table 
Generated  Instructions 
Input/Output  Subroutines  (IJxxxxxx  modules) 
CALLED  Subprograms 

COBOL  Subroutines  (ILBxxxxx  modules) 


SUPERVISOR  WORK  AREA 


• This  area,  a part  of  the  supervisor,  is  for  special  groups 
of  instructions,  or  subroutines,  which  the  supervisor  call  in  from 
the  Core-Image  Library  as  needed  for  special  functions.  After  the 
instructions  are  executed,  other  subroutines  are  called  in  again, 
as  needed. 


e One  of  the  subroutines  most  frequently  called  into  this 
area  is  the  'Attention  Routine'.  Brought  in  by  depressing  the 
Request  Key  on  the  Console  Typewriter,  this  is  the  communication 
media  between  the  supervisor  and  the  console  operator.  Other 
subroutines  called  in  when  needed  are:  outputting  a core  dump 
and  opening  and  closing  files. 
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LABEL  PROCESSING  AREA. 

• While  a program  is  executing,  file  labels  have  to  be 
either  checked  to  ensure  that  the  proper  files  are  being 
accessed,  or  created  if  the  files  do  not  yet  exist. 

• This  checking  or  creating  is  accomplished  by  the  special 
Logical  Input-Output  Control  System  (LIOCS)  module  that  manipu- 
lates the  particular  file.  These  are  special  LIOCS  modules  for 
each  type  of  file:  tape,  sequential  disk,  card,  print,  index- 
sequential,  etc. 

Most  of  these  special  modules  have  their  own  working- 
storage  area  in  which  labels  can  be  stored  while  checking  or 
creating  them.  The  two  exceptions  are  the  module  that  manipu- 
lates a tape  file  and  the  module  that  manipulates  an  index- 
sequential  file.  Therefore,  when  a program  has  either  or  both  of 
these  types  of  files,  a special  area  has  to  be  set  aside  at  Link 
Edit  time  called  the  'Label  Processing  Area'.  This  is  done  by 
inserting  a //  LBLTYP  card  in  the  job  stream  immediately  preced- 
ing the  //  EXEC  LNKEDT  card.  This  will  allow  the  Linkage  Editor 
program  to  reserve  the  proper  amount  of  additional  core  storage 
needed  for  processing  the  labels  of  the  tape  or  index-sequential 
files.  The  //  LBLTYP  card  must  contain  a parameter  that  describes 
the  maximum  amount  of  additional  core  storage  needed  for  this 
area.  If  the  processing  program  has  a tape  file,  the  parameter 
NSD(nn),  where  nn  is  the  largest  number  of  extent  for  a single 
file,  should  be  included  in  the  //  LBLTYP  card.  This  will 
reserve  80  additional  bytes  of  core  storage  for  label  processing. 
If  the  processing  program  has  an  index-sequential  file,  84  bytes 
will  be  reserved  plus  20  additional  bytes  for  each  //  EXTENT 
card.  If  the  processing  program  has  both  tape  and  index-sequen- 
tial files,  only  one  //  LBLTYP  card  is  needed  — with  the 
parameter  describing  the  largest  file  — the  index-sequential 
file. 

COBOL  SUBROUTINES. 

• The  Linkage  Editor  program  has  the  capability  of  recog- 
nizing that  a program  phase  needs  subroutines  that  were  not 
recognized  as  needed  by  the  compiler.  If  the  compiler  had  seen 
the  need  for  these  routines,  it  would  have  created  an  INCLUDE 
card  to  alert  the  Linkage  Editor  of  the  need  and  caused  the 
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subroutine  to  be  pulled  from  the  relocatable  library  at  Link  Edit 
time.  One  type  of  these  modules  is  the  ILB  series  of  relocatable 
modules. 

WORKING-STORAGE. 

• The  area  designated  'Working-Storage'  is  the  beginning 
of  the  COBOL  problem  program.  This  beginning  point  will  be 
related  to  a location  in  the  Link  Edit  Map,  which  will  be 
discussed  later. 

• The  working-storage  area  contains  those  constants, 
accumulators,  headers  and  other  data  defined  in  the  working- 
storage  section  of  the  COBOL  problem  program. 

EDIT  MASKS. 

• Edit  Masks  will  be  present  whenever  the  program  has  any 
items  described  with  a report  usage,  such  as  floating  dollar 
signs,  leading  zero  suppression,  check  protection,  credit  or 
debit  signs  and  others. 

• Edit  Masks  are  constructed  by  the  compiler  and  are  used 
whenever  a numeric  item  is  moved  to  the  report  item  for  which 
the  edit  mask  was  created.  The  edit  mask  is  moved  to  a work  area 
before  the  numeric  move  so  the  mask  will  not  be  destroyed  and 
can  be  used  again  when  needed. 

DTF  TABLES. 

• DTF  is  the  abbreviation  for  Define  the  File-  There  will 
be  a DTF  table  for  every  logical  file  in  a program.  The  table 
will  contain  much  meaningful  information  concerning  the  file. 

Some  of  this  information  is: 

The  symbolic  name  of  the  file. 

The  address  of  the  LIOCS  module  that  manipulates 

the  file. 

The  type  of  device  on  which  the  file  resides. 
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The  access  method. 

The  organization  of  the  file. 

The  record  length. 

The  block  length. 

The  key  location  and  length  — if  index-sequential. 

The  current  record  address. 

The  current  block  address. 

The  alternate  block  address. 

Some  of  this  information  is  inserted  at  compile  time, 
other  information  at  execution  time.  Naturally,  information  in 
the  DTF  changes  as  records  and  blocks  are  accessed. 

ANS  COBOL,  DECIPHERING  DTFs . 

• GENERAL.  Conveys  general  information  about  DTFs  and 
covers  the  following  topics:  definition  of  DTFs,  core  storage 
layout,  general  location  of  DTFs,  exact  address  of  DTFs  and 
contents  of  DTFs . 

• DEFINE  THE  FILE  (DTF).  In  a COBOL  program  each  file  is 
described  by  statements  in  the  ENVIRONMENT  and  DATA  DIVISIONS. 

The  COBOL  compiler  analyzes  the  file  description  entries  and  pro- 
duces an  area  of  "summary  information"  for  each  file  described. 

The  file  descriptors  define  the  file,  so  the  "summary  information" 
is  called  the  DTF  for  the  file.  The  area  will  vary  depending  on 
the  device-class  (unit-record,  utility,  direct-access);  access 
method  (input,  output,  I/O);  file  organization  (direct,  sequen- 
tial, indexed);  record/block  length;  and  presence  or  absence  of 

an  alternate  record/block  area. 

• GENERAL  LOCATION  OF  DTFs.  DTFs  are  located  beginning  a 
few  bytes  beyond  the  last  element  of  the  area  generated  by  the 
WORKING-STORAGE  SECTION  of  a COBOL  program — always  on  a double 
word  boundary  (last  hex  digit  of  the  core  location  will  be  either 
0 or  8) . Thus,  one  method  of  locating  the  general  area  of  the 


2-366 


1 FEB  79 


CSCM  18-1-1 


2. 5. 5. 8 Object  Storage  Layout.  (Cont.) 

DTFs  is  to  add  the  length  of  the  WORKING-STORAGE  SECTION  (from 
the  DATA  DIVISION  MAP)  to  the  load  point  for  the  COBOL  program 
(from  the  linkage  editor  map) . The  sum  obtained  will  usually  be 
within  50  bytes  of  the  first  DTF  for  the  program  in  core.  The 
DTFs  will  be  in  the  same  order  as  the  FD  entries  in  the  COBOL 
source  program. 

• EXACT  ADDRESS  OF  DTFs.  To  locate  the  exact  address  of  a 
particular  DTF,  the  following  procedure  may  be  used  if  a current 
Source  Statement  Listing,  Procedure  Division  Map,  and  core  dump 
are  available. 

In  the  Source  Statement  Listing,  locate  a READ,  WRITE, 
or  REWRITE  statement  for  the  file  in  question. 

Using  the  line  number  for  the  READ,  WRITE  or  REWRITE 
statement  in  the  Source  Statement  Listing,  find  the  generated 
machine- language  instructions  for  that  line  in  the  Procedure 
Division  Map. 

In  the  generated  machine  language  instructions,  find  the 
first  machine  language  instruction  beginning  with  '41'  (Load 
Address)  for  COBOL  verb  READ  or  '58'  (Load)  for  COBOL  verb  WRITE. 
The  corresponding  DTF  is  identified  here  in  each  case  under  the 
column  of  compiler  generated  information  about  the  operands  of 
the  generated  instructions. 

Add  the  value  in  the  base  register  (from  the  first  page 
of  the  core  dump)  to  the  displacement  value  in  the  '41'  Load 
Address  or  '58'  Load  instruction. 

The  sum  of  the  two  values  is  the  hexadecimal  location 
of  the  beginning  of  the  DTF  in  the  core  dump. 

NOTE:  The  above  method  will  work  if  the  register 

settings  have  not  been  changed  by  subroutines, 

IOCS  modules,  or  subprograms. 

• CONTENTS  OF  THE  DTF.  Once  located,  the  DTF  reveals 
information  which  can  be  quite  useful  in  debugging  a program 
having  I/O  problems.  Indicators  in  the  DTF  reveal  the  status  of 
the  file  at  the  time  the  core  dump  occurred.  In  the  following 
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discussion,  consideration  is  given  to  only  those  areas  of  the 
DTF  which  might  help  to  determine  the  cause  of  a file  handling 
problem.  (Refer  to  FIGURE  2-38.) 

NOTE:  Both  byte  locations  and  contents  are  expressed 
in  hexadecimal  notation  relative  to  zero. 


BYTES  CONTENTS 

0-1  The  first  two  bytes  of  a DTF  are  used  as  a counter.  For  an 

input  file,  the  number  of  bytes  transferred  from  the  input 
device  is  counted  into  bytes  0-1.  After  the  block  of  records 
has  been  transferred,  the  count  in  bytes  0-1  is  subtracted 
from  the  block  size  specified  for  the  file.  Thus,  if  these 
bytes  have  a nonzero  count,  the  block  transferred  was  shorter 
than  what  was  specified  in  the  RECORD  and  BLOCK  CONTAINS 
clauses  of  the  FD  entry  for  the  file.  When  a nonzero  situa- 
tion occurs  in  these  two  bytes,  the  system  takes  one  of  two 
actions.  If  the  nonzero  count  is  an  even  multiple  of  the 
record  size  (such  as  the  short  block  written  at  the  end  of  a 
tape  or  sequential  disk  file),  file  processing  will  continue 
in  a normal  manner,  taking  the  AT  END  instruction  after  the 
last  record  in  the  short  block  has  been  read.  A nonzero  size 
causes  automatic  and  immediate  program  termination  with  a 
core  dump.  The  reason  given  for  the  dump  will  appear  on  both 
the  console  and  the  printer  as  ILLEGAL  SUPERVISOR  CALL  32. 
Generally,  the  hex  core  location  of  the  *0A  32'  instruction 
will  be  within  the  DTF  having  a nonzero  count.  Note  that  when 
a block  of  records  longer  than  what  was  described  in  the  FD 
is  encountered  while  processing  a file,  these  bytes  will  con- 
tain '0000'  but  a core  dump  termination  will  still  occur  since 
no  core  is  available  for  the  additional  data  waiting  to  be 
transferred. 

6-7  For  COBOL  files,  byte  6 will  contain  '01'  indicating  an  open 

file.  Byte  7 will  hold  the  'SYS'  number  assigned  to  the  file 
in  the  ENVIRONMENT  DIVISION  for  unit-record  and  tape  files. 

For  disk  files,  the  SYS  number  in  the  EXTENT  card  for  the 
prime  data  area  will  appear  in  byte  7. 


o 


FIGURE  2-38 
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BYTES 

CONTENTS 

11-13 

These  bytes  point  to  the  address  of  the  logical  IOCS  module 
being  used  by  the  file.  The  address  should  match  the  load 
point  of  one  of  the  IJxxxxxx  subroutines  listed  in  the 

LINKAGE  EDITOR  MAP. 

14 

Byte  14  is  the  DTF  "type"  byte.  It  identifies  the  device- 
type, access  method,  and  organization  of  the  file.  CHART  1 
(page  2-370)  shows  the  more  common  configurations  for  this 
byte. 

16-1B 

For  disk  and  tape  files  only,  these  bytes  will  contain  the 
letters  'SYS'  followed  by  the  assigned  numbers  for  the  file 
from  the  SELECT  entry. 

FICURE  2-38  (Cont.) 

• The  rest  of  the  DTF  is  highlighted  in  CHART  2 (page  2-371) 
since,  beyond  what  has  been  mentioned  above,  the  address  locations 
for  file  elements  are  in  different  positions  for  different  types 
of  files.  Add  the  value  found  in  CHART  2 to  the  location  of  the 
first  byte  of  the  DTF  to  determine  the  data  element  sought. 

EXAMPLE:  To  find  the  address  of  the  current  record  in  a 
sequential  disk  file,  add  hex  '38'  to  the 
beginning  location  of  the  DTF.  At  DTF  + '58' 
will  be  found  the  address  of  the  first  byte  of 
the  record  being  processed  at  the  time  the  core 
dump  occurred.  For  additional  information,  see 
the  Sample  Problem. 

• CHART  1. 

NOTE:  Following  information  is  true  for  open  files: 
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HEX  VALUE 

FILE  TYPE 

02 

Card  Reader 

03 

Console 

04 

Card  Punch 

08 

Printer 

10 

Unlabeled  Tape 

11 

Non-Standard  Labeled  Tape 

12 

Labeled  Output  Tape 

14 

Labeled  Input  Tape 

20 

Sequential  Disk 

22 

Direct-Access  (LOADA) 

23 

Device  Independent  File 

24 

Index-Sequential  (LODIS) 

26-27 

Index-Sequential  (SRUIS,  RRUIS, 

RUAIS,  RSAIS) 

34 

Direct  Access  File 

CONFIGURATIONS 

FOR  BYTE  X ' 14 ' 

• CHART  2 
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GENERAL  NOTES: 

1.  Some  of  the  values  shown  above  will  not  be  present 
until  after  the  file  is  opened. 

2.  All  values  above  are  for  fixed-length  records  only. 

3.  B = 1 byte,  H = 2 bytes,  F » 4 bytes. 

SPECIFIC  NOTES. 

1 . The  block  length  shown  in  the  DTF  will  be  the  actual 
block  length  + 8. 

2.  The  data  begins  8 bytes  beyond  the  address  given  in 
the  DTF. 


3.  Key  location  figure  is  valid  only  when  records  are 
blocked. 


4.  The  address  will  be  valid  only  when  bytes  '64-65' 
contain  '00DC'  and  program  has  specified  sequential  retrieval. 

RECORD  BUFFERS. 

• These  are  the  areas  into  which  input  data  is  stored  after 
retrieval  from  the  physical  file  or  from  which  output  data  is 
retrieved  when  being  placed  on  a physical  file. 

• It  is  normal  to  have  two  areas  for  each  file  justifying 
the  term  'double  buffered'.  This  allows  one  area  to  be  filled 
with  information  or  data  while  the  other  area  is  being  accessed 
or,  for  output  files,  one  area  to  be  outputed  while  the  other  is 
being  filled. 

• Programs  which  are  very  large  and  are  considered  'core- 
bound', or  so  large  as  to  need  almost  all  of  the  available  core 
storage,  can  limit  buffers  to  one,  but  this  reduces  efficiency 
as  the  one  buffer  cannot  be  refilled  until  it  has  been 
completely  exhausted. 
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• Input/output  buffers  should  be  as  large  as  a program  will 
permit  so  that  a maximum  number  of  characters  can  be  transmitted 
between  the  device  and  core  storage.  This  produces  the  greatest 
efficiency. 


WORK  AREA,  TASK  GLOBAL  TABLE  (TGT) , PROGRAM  GLOBAL  TABLE 
(PGT) , LITERAL  POOL. 


• The  work  area  is  used  during  execution  of  a COBOL  program 
for  arithmetic  calculations  having  intermediate  results,  for 
editing  numeric  fields  being  moved  to  a report  receiving  field  — 
using  one  of  the  edit  masks  — and  by  some  of  the  more  complex 
COBOL  verbs  such  as  GO  TO. . .DEPENDING  ON. 


• The  literal  pool  is  generated  by  the  compiler  whenever 
literal  values,  rather  than  data-names  are  used  in  the  PROCEDURE 
DIVISION  of  a COBOL  program.  There  are  two  types  of  literals: 
numeric  — utilizing  the  numbers  0 through  9 and  non-numeric  — 
utilizing  any  of  our  256  character  set  enclosed  in  quote  marks. 
Numeric  literals  have  a size  limit  of  18  digits  while  non- 
numeric literals  may  be  120  characters  in  length. 


• The  global  tables  are  used  as  directories  to  show  core 
positions  or  absolute  addresses  assigned  to  program  elements  or 
modules  by  the  Linkage  Editor  program.  At  compile  time,  the  com- 
piler only  sets  up  linkage  to  these  elements,  as  their  absolute 
address  cannot  be  known  until  Link  Edit  time. 


COMPILED  INSTRUCTIONS  - PROBLEM  PROGRAM. 


• This  area  contains  the  object  language  instructions 
generated  by  the  compiler  from  the  COBOL  source  statements  of  the 
problem  program. 


• Machine  language  generated  by  the  compiler  will  appear  in 
the  core  dump. 


LIOCS  MODULES. 


• LIOCS  is  the  abbreviation  for  Logical  Input  Output  Control 
System.  Some  of  the  modules  that  make  up  this  group  of  elements 
are  the  file  manipulating  modules.  These  are  the  instructions 
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that  L10CS  will  execute  when  reading,  writing  or  rewriting  a 
file.  There  are  special  modules  for  each  of  the  following  file 
types: 

Card  Reader. 

Print  File. 

Card  Punch. 

Tape. 

Sequential  Disk  Input. 

Sequential  Disk  Output. 

Index-sequential  being  created  (output,  ISC). 
Indexed-sequential  extend  (input,  ISE) . 


• When  a program  has  more  than  one  tape  file  or  more  than 
one  disk  file,  the  same  module  will  probably  be  used  to  manip- 
ulate each  file,  but  each  will  have  its  own  DTF  table  as 
previously  discussed. 

CALLED  SUBROUTINES.  The  Procedure  Division  of  a COBOL  pro- 
gram can  'CALL' , from  the  Relocatable  Library,  subroutines  that 
exist  there  which  will  perform  a special  function.  The  Compiler, 
while  compiling  the  source  statements  of  a COBOL  program,  will 
create  INCLUDE  cards,  which  will  alert  the  Linkage  Editor  program 
to  pull  these  subroutines  from  the  Relocatable  Library  and  make 
them  part  of  a program  phase.  There  are  many  preconstructed 
subroutines  on  the  Relocatable  Library  that  can  be  used  by  a 
program.  Two  examples  are:  P5IATP,  which  retrieves  today's 
date  from  the  communication  area  of  the  supervisor,  and  P6IATP, 
which  stores  records  on  a tape  which  <ay  be  later  outputed  to 
the  printer. 


( ) 

i O 
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• The  following  lists  ail  cancel  codes  and  their  message 
prefixes.  Some  do  not  appear  in  a foreground  PIB,  such  as  the 
HEX  'FF'  code  (supervisor  catalog  failure).  This  type  of  func- 
tion can  be  performed  only  in  the  background  partition.  The 
linkage  editor  and  system  maintenance  functions  must  also  be 
performed  in  the  background  area. 


• Byte  1 of  the  PIB  table  contains  a cancel  code  stored  by 
the  system  any  time  a cancel  condition  is  encountered.  The  PIB 
table  can  be  located  by  displaying  on  the  console  the  communica- 
tion region  address  (located  at  HEX  16-17)  plus  the  displacement 
of  a '5A'  and  '5B'  . This  is  the  address  of  the  first  part  of  the 
PIB  table.  Remember  each  entry  is  16  decimal  (HEX  *10')  bytes  in 
length.  Each  type  of  the  PIB  is  numbered  starting  with  0 and 
continuing  through  15. 


Cancel  Code  (Hexadecimal) : 


Description.  Action  or  Condition:  This  is  normal  end  of 
job  (EOJ) . Cancel  code  X'10'  is  posted  in  byte  1 of  the  PIB  for 
the  program  issuing  the  SVC  14.  The  next  time  the  canceled 
program  is  selected  on  general  exit,  an  SVC  2 is  taken  to  call 
in  a B-transient  program,  which,  in  turn,  calls  job  control  to 
perform  the  end-of-job  step. 


Cancel  Code  (Hexadec imal ) : 17 
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Description.  Action  or  Condition:  This  is  caused  by  the 
main  task  in  a partition  issuing  the  CANCEL  macro  without 
detaching  all  subtasks  running  under  its  control. 

• Cancel  Code  (Hexadecimal) : 18 


Message  Code:  None 


Description.  Action  or  Condition:  This  is  caused  by  the 
main  task  issuing  the  DUMP  macro  with  subtasks  attached.  It 
allows  the  dump  to  take  place  without  the  error  cancel  message 
being  printed.  All  subtasks  are  detached  and  EOJ  is  taken  after 
the  dump  is  complete. 

e Cancel  Code  (Hexadecimal) : 19 


Description.  Action  or  Condition:  This  is  caused  by  the 
operator  responding  to  an  I/O  error  message  with  the  cancel  option 
on  the  1052. 

• Cancel  Code  (Hexadecimal):  1A 
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Description,  Action  or  Condition:  This  is  caused  by  an 
I/O  error  that  cannot  be  handled  by  the  program  (task),  thus 
causing  the  program  to  be  canceled.  If  the  DUMP  option  is 
specified  at  system  generation  time,  a dump  of  the  supervisor  and 
the  partition  in  which  the  program  was  running  will  be  taken. 


• Cancel  Code  (Hexadecimal):  IB 


Message  Code:  0P821 


Description,  Action  or  Condition:  This  is  caused  by  a 


channel  failure 


Cancel  Code  (.Hexadecimal 


Description,  Action  or  Condition:  This  is  caused  by  a 
subtask  issuing  the  CANCEL  ALL  macro.  This  causes  all  other  sub' 
tasks  to  be  detached  and  canceled.  The  main  task  is  canceled, 
and  a dump  of  the  supervisor  and  partition  involved  results. 


• Cancel  Code  (Hexadecimal):  II) 


Message  Code:  0S121 
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Description,  Action  or  Condition:  This  is  caused  when  the 
main  task  terminates  before  all  sub tasks  have  been  detached.  This 
indicates  the  sub  tasks  were  canceled  before  they  came  to  a normal 
EOJ . The  subtasks  are  detached,  and  the  complete  partition  is 
canceled . 

• Cancel  Code  (Hexadecimal) : IE 


Message  Code: 


0S131 


Description,  Action  or  Condition:  This  is  caused  by  the 
combination  of  one  task  issuing  an  enqueue  for  a resource,  and 
another  task  issuing  a dequeue  for  that  same  resource.  As  a 
result,  the  previous  owner  cannot  be  identified  because  register 
0 in  the  save  area  has  been  modified. 

• Cancel  Code  (Hexadecimal):  IF 


Message  Code:  0P81I 


Description,  Action  or  Condition:  This  is  caused  by  a 
CPU  failure. 

• Cancel  Code  (Hexadecimal);  20 


Message  Code:  0S031  or  0S11I 
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Description,  Action  or  Condition:  This  is  caused  by  a 
program  check  interrupt.  The  program  is  canceled  by  the  system. 
The  user  may  supply  a PC  or  AB  routine  to  handle  this  condition 
via  the  STXIT  macro.  This  code  is  also  used  when  a routine  in 
the  transient  area  is  canceled  due  to  a program  check  in  the 
task  or  subtask  using  it. 

• Cancel  Code  (Hexadecimal) : 21 


Message  Code:  0S04I  or  0S091 


Description,  Action  or  Condition:  This  can  be  caused  by 


many  user  errors 


• The  complete  text  for  message  0S041  is 


ILLEGAL  SVC  - HEX  LOCATION  nnnnnn  - SVC  CODE  nn 


where  nn  is  in  hexadecimal  notation.  This  message  results 
from  the  following  causes: 


When  nn  is  02:  The  phase  name  given  does  not  start 


with  $$B,  or 


For  LIOCS,  macros  called  in  invalid  sequence.  As  a 
result,  an  SVC  8 is  issued  after  an  SVC  2 before  an  SVC  9 has  been 
issued  to  free  the  transient  area,  or 
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For  other  conditions,  the  user  specified  a temporary 
exit  (SVC  8)  for  a logical  transient.  In  the  temporary  exit 
routine,  another  routine  is  called  (by  an  SVC  2)  before  an  SVC  9 
is  issued  to  free  the  transient  area. 

When  nn  is  05:  The  'to'  range  specified  in  the  MVCOM 
macro  is  invalid,  or 

MVCOM  macro  was  issued  by  a foreground  program,  oper- 
ating under  single  program  initiation. 

When  nn  is  OA,  12,  13,  or  18:  The  interval  timer  was 
not  allocated  to  this  partition,  or 

The  supervisor  was  generated  without  the  timer  option. 

When  nn  is  OB:  The  call  was  not  given  by  a logical 
transient  routine. 

When  nn  is  16,  17,  or  1A:  The  caller  did  not  have  a 
PSW  key  of  zero.  This  is  applicable  only  in  a multiprograming 
system. 


When  nn  is  23:  More  than  16  holds  have  been  issued  for 
the  same  track. 

When  nn  is  24:  Free  a non  - DASD  or  a track  that  is 

not  held. 

When  nn  is  26:  A sub task  Issued  attach,  or  the  save 
area  is  not  on  a doubleword  boundary. 

When  nn  is  27 : A main  task  issued  detach  without 
SAVE  ■ parameter,  or 

A main  task  issued  detach,  but  the  ID  of  the  subtask  in 
the  save  area  passed  is  not  valid,  or 

If  a main  task  attempts  to  detach  an  already  termi- 
nating subtask. 
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When  rm  is  29:  A DEQ  is  issued  by  a task  that  did 
not  ENQ  the  resource.  (This  is  valid  in  an  AB  routine.) 

When  nn  is  2A:  A subtask  (without  an  ECB  = parameter) 
has  issued  an  ENQ  macro,  or 

A subtask  has  issued  an  ENQ  macro  to  a resource  that 
has  been  dequeued  by  another  task  that  has  been  terminated,  or 

A task  has  issued  two  ENQ  macros  to  the  same  resource 
without  an  intervening  DEQ. 

When  nn  is  2D:  Emulator  execution  was  attempted,  but 
the  EU  parameter  of  the  SUPVR  macro  was  omitted  or  incorrectly 
specified  during  system  generation. 

When  nn  is  32:  For  L10CS: 

1.  An  imperative  macro  (such  as  WRITE  or  PUT)  was 
issued  to  a module  that  does  not  contain  the  requested  function, 
or 


2.  A PUT  was  issued  for  an  ISAM  retrieve  module  with- 
out a preceding  GET,  or 

3.  An  invalid  ASA  first  character  for  the  printer  was 

used,  or 

4.  A wrong  length  record  indication  occurred  while 
processing  1287  documents  when  RECFORM-UNDEF,  or 

5.  The  1287  program  erroneously  contained  a CCW(s) 
with  the  SLI  flag  bit  'OFF' , or 

For  COBOL,  a wrong  length  record  was  detected  in 
the  object  program. 

6.  When  nn  is  any  other  value:  The  supervisor  func- 
tion requested  by  the  operand  of  the  SVC  is  not  defined  for  the 
supervisor  being  used. 
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• Cancel  Code  (Hexadecimal):  22 


Message  Code:  0S051  or  0S061 


Description,  Action  or  Condition:  This  is  caused  by  the 
issuing  of  a FETCH  (SVC  1)  or  a LOAD  (SVC  A)  macro  whose  phase 
name  cannot  be  found.  This  cancel  code  is  also  used  when  a 
logical  transient  is  canceled. 

• Cancel  Code  (Hexadecimal):  23 


Message  Code:  0S021 


Description,  Action  or  Condition:  This  is  caused  by  a 
program,  task  or  subtask  issuing  a CANCEL  macro.  If  issued  by  a 
program  or  task,  the  program  or  partition  is  canceled.  If  issued 
by  a subtask,  the  subtask  only  is  canceled. 

• Cancel  Code  (Hexadecimal) : 24 


Message  Code:  0S1I 
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Description,  Action  or  Condition:  This  is  a result  of  an 
operator  entering  CANCEL  from  the  1052. 

• Cancel  Code  (Hexadecimal) : 25 


I , 
I I 


Description,  Action  or  Condition:  This  is  a result  of 
attempting  to  load  a problem  program  phase  at  an  address  outside 
main  storage  or  outside  the  requester's  area  (background  or 
foreground).  This  condition  also  occurs: 

If  the  program  requires  more  main  storage  than  is 
allocated  to  the  partition  where  the  program  is  to  run,  or 

If  an  improper  address  is  detected  on  an  SVC  interrupt 
(i.e.,  CCW  address  in  CCB  is  invalid). 

• Cancel  Code  (Hexadecimal) : 26 


Description,  Action  or  Condition:  This  is  a result  of  a 
program  issuing  an  I/O  request  for  a logical  unit  that  is  not 
assigned  to  a device.  If  a dump  is  taken,  general  register  1 
contains  the  address  of  the  CCB.  If  the  CCB  is  unavailable,  the 
logical  unit  message  contains  SYSxxx. 
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• Cancel  Code  (Hexadecimal) ; 27 


Message  Code:  0P70I 


Description,  Action  or  Condition:  This  is  a result  of  a 
program  issuing  an  I/O  request  for  a logical  unit  for  which  there 
is  not  logical  unit  block  (LU3)  entry  (invalid  LUB  code  in  CCB) . 
If  a dump  is  taken,  general  register  1 contains  the  address  of 
the  CCB. 


• Cancel  Code  (Hexadecimal) : 28 


Message  Code:  None 


Description,  Action  or  Condition:  (QTAM  cancel  in 
progress.) 

• Cancel  Code  (Hexadecimal):  30 


Message  Code:  OP721 


Description.  Action  or  Condition:  This  is  a result  of  a 
program  ignoring  the  reading  of  the  /&  statement  on  SYSRDR  or 
SYSIPT. 
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Description.  Action  or  Condition:  This  is  a result  of  a 
program  ignoring  the  reading  of  the  /&  statement  on  SYSRDR  or 
SYSIPT. 

• Cancel  Code  (Hexadecimal):  31 


Message  Code:  0P751 


Description.  Action  or  Condition:  This  is  a result  of 
the  number  of  pending  I/O  errors  exceeding  supervisor  capacity 

• Cancel  Code  (Hexadecimal) : 32 


Message  Code:  OP76I 


Description.  Action  or  Condition:  This  is  caused  by  DASD 
file-protect  limits  being  exceeded  or  by  an  incorrect  record 
reference  for  system  files  on  disk.  It  will  also  be  posted  for 
unrecoverable  I/O  errors  on  tape. 


• Cancel  Code  (Hexadecimal) : 33 


Message  Code:  OP79I 
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Description.  Action  or  Condition:  This  occurs  when  a 
DASD  command  chain  in  a file-protected  environment  does  not  start 
with  a command  code  of  X'07'.  This  code  indicates  a long  seek 
and  must  be  the  first  command  in  the  chain. 

• Cancel  Code  (Hexadecimal) : 34 


Message  Code:  0P841 


Description,  Action  or  Condition:  This  is  caused  by  an 
unrecoverable  I/O  error  during  a FETCH  of  a non-$  phase,  thus 
resulting  in  the  job  being  canceled. 

• Cancel  Code  (Hexadecimal) : FF 


I Message  Code:  0P78I 

Description,  Action  or  Condition:  This  occurred  when  an 
IBM-supplied  component  failed  to  post  a valid  cancel  code. 

All  of  these  cancel  codes  cancel  the  program,  task,  or  sub- 
task when  they  occur.  If  multitasking  is  being  used  and  a main 
task  is  canceled,  all  of  the  subtasks  attached  are  detached  and 
canceled  as  a result  of  the  main  task  being  canceled,  with  the 
exception  of  cancel  code  X'23'.  If  a dump  option  was  specified 
at  system  generation  time,  the  contents  of  the  supervisor  and  the 
partition  in  which  the  cancel  condition  occurred  is  written  on 
SYSLST . 
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The  linkage  editor  map  can  be  a great  help  in  locating  pro- 
grams and  subroutines  that  are  included  in  the  programs  at  object 
time.  Common  areas,  load  address,  relation  factors,  low-core 
and  high-core  addresses  are  also  shown.  In  addition,  the  PHASE 
card  is  displayed  to  show  where  the  phase  was  loaded  (i.e. , 
directly  following  the  supervisor  or  at  some  other  location) . 

This  map  is  also  helpful  when  working  with  multiphase  programs. 

The  system  dump  of  main  storage  used  with  these  items  allows 
the  programer  to  relate  all  the  information  he  has  gathered  to 
the  contents  of  main  storage  at  the  time  the  error  occurred. 

By  using  the  dump  and  the  listing,  the  programer  can  see  how  his 
program  appeared  in  main  storage  at  the  time  of  the  error.  By 
using  the  values  found  in  the  Program  Information  Key  (PIK)  and 
Program  Information  Block  (PIB)  table  in  the  dump,  he  can  see 
partition  save  areas,  registers,  and  instructions  to  determine 
what  actually  caused  the  error. 

There  are  times  when  a system  dump  is  not  available  to  the 
programer,  such  as  hard  waits  and  unending  loops.  When  one  of 
these  conditions  occurs,  the  only  way  to  get  a dump  of  main 
storage  is  to  use  a stand-alone  dump.  Remember  that  the  address 
of  the  communication  region  (COMRG)  is  lost  when  a stand-alone 
dump  is  taken.  Therefore,  bytes  X'16'  and  X'17'  should  be  dis- 
played before  taking  a dump  of  main  storage  to  ensure  that  the 
programer  has  the  correct  communication  region  address  to  use 
when  he  is  analyzing  the  dump.  If  bytes  '16*  and  '17'  are  not 
displayed,  the  communications  region  start  address  can  still  be 
found  by  scanning  the  dump  for  the  date  in  the  form  MM/DD/YY  or 
DD/MM/YY  (this  indicates  the  start  of  COMRG).  Although  the 
register  values  in  a stand-alone  dump  (register  print  area  of  the 
dump)  may  not  be  valid,  the  partition  save  area  values  most 
likely  will  be  valid. 

LABEL  STORAGE  AREA  (1  cylinder). 

• The  label  storage  area  will  start  in  track  0 of  the  first 
cylinder  following  the  end  of  the  SSL  and  will  continue  for  one 
cylinder.  Byte  13  of  record  4 of  the  System  Directory  contains 
the  address  of  the  label  storage  cylinder.  This  address  is  also 
furnished  for  Job  Control  and  LIOCS  in  the  communication  region. 
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• The  label  storage  cylinder  will  contain  label  blocks 
which  define  the  labels  on  files  used  by  processing  programs. 
Label  blocks  are  built  at  Job  Control  time  for  labeled  tape  files 
from  //  VOL  and  //  TLBL  cards  and  for  disk  files  from  //  VOL, 

//  DLBL  and  //  EXTENT  cards.  These  label  blocks  are  retrieved 
from  the  label  storage  cylinder  at  execution  time  and  read  into 
main  storage  by  the  OPEN  and  CLOSE  routines.  File  labels  are 
also  read  by  the  OPEN  and  CLOSE  routines  into  the  transient  area. 
A comparison  is  then  made  between  the  label  block  information  and 
the  file  label  to  insure  that  the  proper  file  is  being  accessed. 

• Core  storage  need  not  be  reserved  for  sequential  DASD 
files  as  the  label  blocks  will  be  read  into  the  transient  area. 
Core  storage  must  be  reserved  by  the  user  for  non-sequential  DASD 
files  and  labeled  tape  files.  However,  core  need  be  reserved  for 
only  the  largest  label  block  which  will  be  retrieved.  This  core 
reservation  is  accomplished  with  the  //LBLTYP  statement  at  link 
edit  time.  This  statement  has  two  parameters:  TAPE  or  NSD  (nn) . 

• A //  LBLTYP  TAPE  will  reserve  80  bytes  of  user  core  and 
is  used  when  ONLv  labeled  tape  files  are  to  be  processed.  This 
same  80  bytes  is  used  by  all  tape  files. 

• A //  LBLTYP  NSD  (nn)  is  used  when  non-sequential  DASD 
files  will  be  processed  regardless  of  whether  labeled  tapes  will 
also  be  processed.  This  statement  reserves  84  bytes  of  core  plus 
20  bytes  for  each  extent.  A //  LBLTYP  NSD(nn)  is  submitted  for 
the  non-sequential  DASD  file  with  the  largest  number  of  extents 
with  the  number  of  extents  being  specified  in  the  (nn)  parameter. 
This  same  core  storage  will  be  used  by  label  blocks  for  non- 
sequential DASD  files  with  fewer  extents  and  by  labeled  tape 
files. 

• If  neither  non-sequential  DASD  label  blocks  nor  labeled 
tape  label  blocks  will  be  retrieved  by  the  program,  no  core 
storage  needs  to  be  reserved  (i.e.,  nc  //  LBLTYP  statement  is 
submitted  at  link  edit  time). 

• Only  one  //  LBLTYP  statement  maximum  is  ever  submitted  at 
link  edit  time. 
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• LABELED  TAPE  LABEL  BLOCKS. 

Always  8 0 bytes  per  file. 


• 

FIGURE 

Always  read  into  lower  portion  of  user 

LABEL  BLOCK  KEY  FOR  EVERY  LABEL  BLOCK. 

core. 

(Refer  to 

2-39.) 

BYTE 

FUNCTION 

CONTENT/FORMAT 

1-8 

File  Name 

CL8 

' filename* 

9 

Reserved 

X 

'00' 

10 

Extent  Sequence 

It  X 

'bb' 

A. 

Mag  Tape  'bb'='00' 

B. 

DASD  'bb'-//  of 

first  extent 

FIGURE  2-39 


• LABEL  BLOCKS  SUMMARIZED.  (Refer  to  FIGURE  2-40.) 


LABEL  BLOCK 


FILE  TYPE 


TAPE 
SEQ  DASD 
NON-SEQ  DASD 


104  for  each  extent 

84  + 20  (number  of  extents) 


FIGURE  2-40 


The  label  storage  cylinder  consists  of  two  kinds  of  label 
blocks.  Track  0 is  used  for  permanent  label  blocks  while  tracks 
1-9  are  used  for  temporary  label  blocks.  Permanent  label  blocks 
will  remain  in  effect  across  job  boundaries.  Temporary  label 
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blocks  are  destroyed  at  Job  step  completion  time  (end  of  //  EXEC) 
by  an  EOF  Indication  being  placed  In  track  1 of  the  label  storage 
cylinder. 

Permanent  label  blocks  for  sequential  disk  files  and  labeled 
tape  files  can  be  created  on  track  0 by  submitting  a //  OPTION 
STD LAB EL  statement  prior  to  the  //  VOL,  //  DLBL  and  //  EXTENT 
statements  control  cards.  This  procedure  is  recommended  for 
sequential  disk  files  used  by  the  systems  programs  (SYS000, 

SYS001 , SYS002,  SYS003)  so  that  //  VOL,  //  DLBL  and  //  EXTENT 
statements  need  not  be  submitted  for  every  job.  Permanent  label 
blocks  for  all  files  must  be  rewritten  every  time  a //  OPTION 
STDLABEL  control  statement  is  used. 

The  format  of  the  label  blocks  is  dependent  upon  the  kind  of 
file  being  described  as  shown  below. 

• SEQUENTIAL  DASD  FILE  LABEL  BLOCKS.  (Refer  to 
FIGURE  2-41.) 


1.  Always  at  least  104  bytes  per  file. 

2.  Additional  extents  will  require  an  additional  20 
bytes  similar  to  bytes  85-104. 

3.  Always  read  into  lower  portion  of  user  core. 


BYTE 

FUNCTION 

CONTENT/ FORMAT 

1 

No.  of  Extents 

X 

'bb 

1 

A. 

SEQ  DISK  'bb'-'01'  for 
all  except  last  extent. 

B. 

SEQ  DISK  'bb'-FF'  for 
last  extent. 

C. 

Non-SEQ  'bb' “number  of 
extents  (maximum  of  125) 

FIGURE  2-41 
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FIGURE  2-41  (Cont.) 


BYTE 

FUNCTION 

CONTENT/ FORMAT 

2-9 

File  Name 

CL8 

'filename'  (DTF  name) 

10-53 

File  ID 

CL44 

'Qualified  name  (Gen//  Ver//)  ' 

54 

Format  ID 

CL1 

'1' 

55-60 

File  Serial 

CL6 

'serial' 

61-62 

Volume  Sequence 

H 

'n' 

63 

Creation  Date 

X 

’yy’ 

64-65 

tt  It 

H 

'ddd' 

66 

Expiration  Date 

X 

'yy* 

67-68 

n it 

H 

'ddd' 

69-71 

Reserved 

3X 

'00' 

72-84 

System  Code 

CL13 

'alphamerics ' 

85-90 

Extent  Serial 

CL6 

'serial' 

92 

Extent  Seq.  No. 

X 

'bb' 

93-96 

Lower  Limit 

4X 

A.  ISFMS  without  a master 
index  'bb'='01' 

B.  All  others  'bb’-'00' 

'Cl',  'C2 ' , 'HI',  'H2 ' 

97-100 

Upper  Limit 

4X 

'Cl',  'C2 ' , 'HI',  'H2 ' 

101-102 

Symbolic  unit 
from  CCB 

2X 

'0b',  'bb' 

103 

Old  cell 

X 

'Bl' 

104 

New  cell 

X 

' B2 ' 
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2.5.5.10  Walt  States. 

• The  system  is  said  to  be  In  a wait  state  when  the  "wait" 
light  Is  continuously  lit  and  the  "system"  light  is  off.  Wait 
states  are  divided  into  hard  waits  and  soft  waits. 

• If  the  system  is  in  a hard  wait,  the  wait  bit  in  the 
current  PSW  (bit  14)  is  set  to  one  and  the  system  mask  is  set  to 
zeros,  thus  disabling  all  interrupts.  Because  no  interrupts  are 
allowed,  a PSW  swap  cannot  occur  and  the  system  must  be  re-IPLed 
to  continue  processing. 

• A soft  wait  occurs  when  the  DOS  supervisor  finds  no  in- 
core  programs  ready  to  run  and  loads  a PSW  with  the  wait  bit  set 
to  one  and  the  system  mask  set  to  all  ones.  The  first  interrupt 
returns  control  to  the  supervisor  and  processing  may  continue. 

• A wait  can  easily  be  determined  as  hard  or  soft  by 
causing  an  interrupt.  If  the  system  responds  with  some  action, 
the  wait  is  soft;  if  not,  the  attention  routine  responds  with 
the  "READY  FOR  COMMUNICATIONS"  message. 

SOFT  WAITS.  If  the  system  is  in  a continuous  soft  wait,  it 
is  waiting  for  an  interrupt  to  signal  the  completion  of  an  event. 
Although  the  expected  interrupt  may  be  from  the  timer  or  external 
interrupt  key,  a missing  device-end  caused  by  hardware  is  the  most 
frequent  cause.  The  operator  can  make  each  device  not-ready,  then 
ready,  to  generate  a device-end  interrupt  from  each  address.  The 
system  light  flashes  briefly  as  the  supervisor  examines  and  dis- 
cards interrupts  for  which  it  was  not  waiting.  The  interrupt  from 
the  device  waited  for  causes  normal  processing  to  continue.  (Tha 
occurrence  should  be  brought  to  the  attention  of  the  customer 
engineer  as  a possible  hardware  failure.)  If  this  technique  does 
not  end  the  wait,  take  a stand-alone  dump  to  find  what  the  system 
was  waiting  for. 

HARD  WAITS.  The  DOS  supervisor  loads  a hard-wait  PSW  when  a 
failure  occurs  that  puts  the  integrity  of  the  control  program  or 
system  data  in  doubt.  The  supervisor  attempts  to  place  a message 
in  low  core  bytes  0-4. 

• If  a hard  wait  occurs,  it  is  imperative  that  this  message 
be  retrieved  and  recorded.  Effective  diagnosis  is  extremely 
difficult  if  this  step  is  neglected. 
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• If  byte  one  of  main  storage  contains  an  S (HEX  ' E2'),  the 
following  information  can  be  obtained  easily: 

• Check  byte  '73'  for  a 'OF'.  This  indicates  either  a 
channel  control  check  or  an  interface  control  check.  Bytes  ' 3A'- 
' 3B'  contain  the  device  address.  If  byte  '73'  does  not  contain  a 
'OF',  a machine  check  must  have  occurred. 

• Byte  one  may  have  a W.  If  a W (HEX  'E6')  is  found,  a 
hard  stop  on  SYSREC  is  indicated. 

• If  the  CPU  detects  an  error  in  its  own  circuitry,  or  (in 
the  System/360,  model  50  or  smaller)  in  the  channel  or  interface 
control  circuits,  it  forces  a machine  check  interrupt.  The 
system  places  an  "S"  in  byte  1 and  enters  a hard  wait.  The  "S" 
is  a request  to  run  the  SEREP  (System  Environmental  Recording, 
Editing,  and  Printing)  dump  to  format  and  display  the  contents  of 
the  CPU's  hardware  registers  and  log-out  area  for  use  by  the  cus- 
tomer engineer.  (A  SEREP  dump  configured  for  the  system  should 
be  available  to  the  operator.  A copy  can  be  obtained  from  the 
customer  engineer  responsible  for  the  CPU.) 
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2.5.5.11  Commonly  Encountered  User  Errors. 

• The  following  is  a list  of  eight  of  the  most  commonly 
encountered  type  of  user  errors  under  the  disk  operating  system 
(DOS).  For  each,  the  error  condition  is  shown  and  possible 
reasons  for  the  error  given.  Not  all  of  the  information  provided 
will  apply  in  every  case,  but  as  far  as  possible,  common  causes 
and  sources  of  information  are  pointed  out. 

SPECIFICATION  EXCEPTION. 

• When  data,  an  instruction  or  control-word  address  does 
not  specify  an  integral  boundary  for  the  unit  of  information. 

• When  the  multiplier  or  divisor  in  decimal  arithmetic 
exceeds  15  digits  and  sign. 

• When  the  first  operand  field  is  shorter  than  or  equal  to 
the  second  operand  field  in  decimal  multiplication  or  division. 

OPERATOR  INTERVENTION.  The  console  operator  will  cancel  a 
job  when  it  is  apparent  the  program  is  executing  instructions  in 
a manner  that  indicates  a closed  loop. 

I/O  EXCEPTION.  This  occurs  when  the  program  requests  an 
illegal  file  handling  operation.  Reading,  writing,  etc. 

DATA  EXCEPTIONS.  During  arithmetic  operations  data  is  always 
in  packed  decimal  form  whether  or  not  the  operands  have  been 
specfied  as  Computational-3.  The  low  order  byte  of  each  operand 
must  contain  a valid  sign  A-F. 

OPERATION  EXCEPTION.  Occurs  when  a program  is  attempting  to 
execute  an  illegal  operation  code.  Can  be  caused  by  the  forcing 
of  control  to  outside  the  Procedure  Division.  Can  be  caused  by  a 
bad  subscripting  move  overlaying  instructions. 

ADDRESSING  EXCEPTION.  Occurs  when  an  instruction  attempts  to 
access  an  address  outside  of  available  storage.  May  be  caused  by: 

• Program  too  large. 

• Bad  subscript. 
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2.5.5.11  Commonly  Encountered  User  Errors.  (Cont.) 

• I/O  malfunction. 

• Bad  register  modification. 

PROTECTION  EXCEPTION.  Occurs  when  an  instruction  attempts  to 
access  an  address  in  some  other  partition.  Can  be  caused  by: 

• Program  too  large. 

• Bad  subscript. 

SUPERVISOR  CALL  ERRORS.  Supervisor  Call  Errors,  SVC's,  are 
caused  by  a program  requesting  action  from  the  supervisor  with 
required  prerequisite  information  either  not  available  or 
improperly  defined.  This  can  be  caused  by  describing  a file 
differently  than  the  way  it  was  created  or  giving  other  erroneous 
information  concerning  the  file  — wrong  record  size,  wrong 
blocking  factor,  wrong  recording  mode,  wrong  loglcaL  assignment. 
When  the  supervisor  recognizes  some  deficiency,  it  will  plug  into 
the  DTF  for  the  file  an  'OA  32'  to  indicate  the  SVC  32  error. 
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2.5.5.12  DOS  Core  Dump  Tracing. 

• If  a serious  error  occurs  during  execution  of  the  problem 
program,  the  job  is  abnormally  terminated;  any  remaining  steps 
are  bypassed;  and  a program  phase  dump  is  generated.  The  pro- 
gramer  can  use  the  dump  for  program  checkout.  (However,  any 
pending  transfers  to  an  external  device  may  not  be  completed. 

For  example,  if  a READY  TRACE  statement  is  in  effect  when  the  job 
is  abnormally  terminated,  the  last  card  number  may  not  appear  on 
the  external  device.)  In  cases  where  a serious  error  occurs  in 
other  than  the  problem  program  (e.g.,  Supervisor),  a dump  is  not 
produced.  Note  that  program  phase  dumps  can  be  suppressed  if  the 
NODUMP  option  of  the  OPTION  control  statement  has  been  specified 
for  the  job,  or  if  NODUMP  was  specified  at  system  generation  time 
and  is  not  overridden  by  the  DUMP  option  for  the  current  job. 

HOW  TO  USE  A DUMP.  When  a job  is  abnormally  terminated  due 
to  a serious  error  in  the  problem  program,  a message  is  written 
on  SYSLST  which  indicates  the: 

• Type  of  interrupt  (e.g.,  program  check). 

• Hexadecimal  address  of  the  instruction  that  caused  the 
interrupt. 

• Condition  code. 

• Reason  for  the  interrupt  (e.g.,  data  exception). 

The  instruction  address  can  be  compared  to  the  Procedure 
Division  map. 

The  contents  of  LISTX  provide  a relative  address  for  each 
statement.  The  load  address  of  the  module  (which  can  be  obtained 
from  the  map  of  main  storage  generated  by  the  Linkage  Editor) 
must  be  subtracted  from  the  instruction  address  to  obtain  the 
relative  instruction  address  as  shown  in  the  Procedure  Division 
map.  If  the  interrupt  occurred  within  the  COBOL  program,  the 
programer  can  use  the  error  address  and  LISTX  to  locate  the 
specific  statement  in  the  program  which  caused  a dump  to  be 
taken.  Examination  of  the  statement  and  the  fields  associated 
with  it  may  produce  information  as  to  the  specific  nature  of  the 
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2.5.5.12  DOS  Core  Dump  Tracing.  (Cont.) 

In  the  following  sample  dump  which  was  caused  by  a data 
exception,  invalid  data  (i.e,,  data  which  did  not  correspond  to 
its  usage)  was  placed  in  the  numeric  field  B as  a result  of 
redefinition.  The  following  discussion  illustrates  the  method  of 
finding  the  specific  statement  in  the  program  which  caused  the 
dump.  Letters  identifying  the  text  correspond  to  letters  in  the 
program  listing.  (See  FIGURE  2-42,  page  2-399.) 

• The  program  interrupt  occurred  at  HEX  LOCATION  0039BC 
(Circle  A).  This  is  indicated  In  the  SYSLST  message  printed  just 
before  the  dump. 

• The  linkage  editor  map  (Circle  B)  indicates  that  the 
program  was  loaded  into  address  0032A0.  This  is  determined  by 
examining  the  load  point  of  the  control  section  TESTRUN.  TESTRUN 
is  the  name  assigned  to  the  program  module  by  the  source  coding: 
PROGRAM- ID.  TESTRUN. 

• The  specific  instruction  which  caused  the  dump  is  located 
by  subtracting  the  load  address  (Circle  B)  from  the  interrupt 
address  (Circle  A)  (i.e.,  subtracting  32AO  from  39BC) . The 
result,  71C,  is  the  relative  interrupt  address  and  can  be  found 
in  the  object  code  listing  (Circle  C) . In  this  case  the  instruc- 
tion in  question  is  an  AP  (add  decimal). 

• The  left-hand  column  of  the  object  code  listing  gives  the 
compiler-generated  card  number  associated  with  the  instruction. 

It  is  card  69.  As  seen  in  the  source  listing,  card  69  contains 
the  COMPUTE  statement. 

LOCATING  DATA. 

• The  location  assigned  to  a given  data-name  may  similarly 
be  found  by  using  the  BL  number  and  displacement  given  for  that 
entry  in  the  glossary,  and  then  locating  the  appropriate  one 
fullword  BL  cell  in  the  TGT.  The  hexadecimal  sum  of  the  glossary 
displacement  and  the  contents  of  the  cell  should  give  the  rela- 
tive address  of  the  desired  area.  This  can  then  be  converted  to 
an  absolute  address  as  described  above. 


2-397 


CSCM  18-1-1 


1 FEB  79 


2.5.5.12  DOS  Core  Dump  Tracing.  (Cont.) 

• Since  Che  problem  program  interrupted  because  of  a data 
exception,  the  programer  should  locate  the  contents  of  field  3 
at  the  time  of  the  interrupt.  This  can  be  done  as  follows: 

• Locate  data-name  B in  the  glossary  (Circle  J) . It 
appears  under  the  column  headed  SOURCE-NAME.  Source-name  B has 
been  assigned  to  base  locator  3 (i.e.,  BL  = 3)  with  a displace- 
ment of  050.  The  sum  of  the  value  of  base  locator  3 and  the  dis- 
placement value  50  is  the  address  of  data-name  B. 

• The  Register  Assignment  table  (Circle  K)  lists  the  regis- 
ters assigned  to  each  base  locator.  Register  6 has  been  assigned 
to  BL  = 3. 

• The  contents  of  the  sixteen  general  registers  at  the  time 
of  the  interrupt  are  displayed  at  the  beginning  of  the  dump 
(Circle  L) . Register  6 contains  the  address  00003388. 

• The  location  of  data-name  B can  now  be  determined  by 
adding  the  contents  of  register  6 and  the  displacement  value  50. 
The  result  33D8,  is  the  address  of  the  leftmost  byte  of  the 
4-byte  field  B (Circle  M) . 

NOTE:  Field  B contains  F1F2F3C4.  This  is  external  decimal 
representation  and  does  not  correspond  to  the  USAGE 
COMPUTATIONAL- 3 defined  in  the  source  listing. 
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ILLUSTRATION  OF  A PROGRAM  PRODUCING 


//  jot  0T4CNA 


OOOOIO  10INTIE ICAT ION  DIVISION. 

000020  BAOGA*"-IO.  TISTAUN. 

OOOOIO  lu'HOA.  »*0G4ANN£*  NINE. 

000040  INST  41  l »T  | ON.  NEW  VOAA  HOOK  INNING  CENTfl 

OOOOSO  0*TE-*AITTEN.  HHUUI  4,  l*Tl 

0000*0  DATE  -CON* I L 10.  04224/TI 

OOOOTO  AE«HBS.  THIS  BAOGAIN  H*S  BE  IN  nAIITEN  *S 
OOOOBO  COBOL  USiAS.  IT  CAEATES  IN  OUTPUT  fill  *1 

0000*0  INPUT. 

000100 

000110  { N V I BONNE  NT  01 VI  SION. 

000120  CONE IGU* IT  ION  SECTION. 

0001)0  SOU*CE*CON*UTE«.  IBN-340-MS0. 

000140  OBJSC’-CONPUTE*.  IBN-)*0-MSO. 

OOOISO  I N4UT  -OL'I  *UT  SECTION. 

000140  EILE-CONTAOl. 

OOOITO  SELECT  EILE-I  4SSIGN  TO  STS001-UT-2400-S, 

OOOISO  SELECT  E|L(-I  A1SISN  TO  STS00B-UT-2400-S, 

0001*0 

000200  DAT  A OIVISION. 

000210  EICC  SECTION. 

000220  BO  *ILE-l 

000210  LABEL  AECOAOS  AAE  ONITTEO 

000240  BLCCA  CONTAINS  S AECOAOS 

000210  AECOAOING  NOOE  IS  f 

0002SS  AECOAO  CONTAINS  20  CMAAACTEAS 

0002*0  OITA  AICOAD  IS  AECOAO-I. 

0002  TO  01  «EC0«0-1, 

000210  OS  E IELO-A  BIC  11201. 

0002*0  EO  • ILE-2 

000100  LABEL  AECOAOS  ABE  ONITTEO 

000110  BIOCI  CONTAINS  S AECO*OS 

000120  AECOAO  CONTAINS  20  CnaBICTEAS 

000)10  AE'.OAOING  NOOE  IS  E 

003)40  OATA  AECOAO  IS  AECOBO-2. 

COOISO  01  AECOAO-2. 

000)40  OS  EIELO-A  BIC  XI20I. 


FIGURE  2-42 
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000370 
0003 t0 
000390 
000*00 
000*10 
000*20 
000*30 
000**0 
000*30 
000*60 
000*70 
000*60 
000*90 
000300 
000310 
000320 
000! 30 
00033* 
000333 
000336 
0003*0 
000350 
000360 
000370 
000380 
00Cf39O 
000600 
0006 10 

000630 

0006*0 
0006*3 
000650 
000660 
000670 
000680 
000690 
000700 
000710 
000720 
0007)0 
0007*0 
000730 
000760 
000 770 
000760 
000790 


WORKING- STORAGE  SECTION. 

01  FILLER. 

02  COUNT  PIC  S99  CONP  SYNC. 

01  ALPHABET  PIC  XI 26)  VALUE  IS  •ABODE FCH| JU  *NOPORSTUVWXT<% 

02  ALPHA  MOEFtNfS  ALPHABET  PIC  I OCCURS  26  TIMS. 

02  NUNBR  PIC  S99  CC*P  SYNC. 

02  DEPENDENTS  PIC  XC26I  VALUE  -0123*0123*0123*0123*0123*0». 

02  OIPCND  REDEFINES  OEPENOINTS  PIC  1 OCCURS  26  Tints. 

01  WORR-RCCORO. 

03  NANE-P 1 f ID  PIC  X. 

03  MLLCR  PIC  X. 

93  RECORO-NO  PIC  99*9. 

03  PULE*  PIC  X VALUE  IS  SPACE. 

C3  l DC AT  ION  PIC  444  VALUE  IS  "NT  Cf  • . 

03  FILLER  PIC  I VALUE  IS  SPACt. 

03  NO-OP-OEPENOf NTS  PIC  XX. 

03  FILLER  PIC  XI 71  VALUE  IS  SPACES. 

01  RECORDA. 

02  A PICTURE  S9I6I  VALUE  123*. 

02  b REDEFINES  A PICTURE  S9ITI  CONPUTAT I ON At -3. 

PAOCEOURE  DIVISION. 

BEGIN.  READY  TRACE. 

NOTE  THAT  THE  FOLLOWING  OPENS  THE  OUTPUT  PILE  TO  i(  CREATED 
A NO  INITIALIZES  COUNTERS. 

SfEP-l.  OPEN  OUTPUT  PILE-1.  NOVI  ZERO  TO  COUNT.  NU*BR. 

note  that  the  poll. wing  CREATES  internally  THE  RECOROS  to  DC 
CONTAINED  IN  THE  F.lE,  WRITES  THEN  ON  TAPE.  AND  01  SPLAYS 
ON  THE  CONSOLE. 

STEP-2.  600  1 TO  COUNT,  NU*6A.  MOVf  ALPHA  l COUNT)  TO 


NAME-P1EL0.  /jT\ 

COHPUTI  B • B * I. 

WOVE  OE  PE  NO  C COUNT  I TO  NO-OP -OEPENOINTS. 


►.OVE  NUNBR  TO  RECORO-NO. 

STEP-1.  DISPLAY  WORX '-RECORD  UPON  CONSOLE.  WRITE  RECORD-1  PROH 
wORR-REtORD. 

STEP-*.  PERFORM  STEP-2  THRU  ST£P-3  UNTIL  COUNT  IS  IOUAL  TO  26. 
NOTE  THAT  the  following  CLOSES  THE  OUTPUT  PILE  ANO  A 20 PENS 
IT  AS  INPUT. 

STEP-3.  CLOSE  FILE-t.  OPEN  INPUT  P Ilf-2. 

NOTE  that  THE  FOLLOWING  RfAOS  BACR  THE  PILE  ANO  SINGLES 
OUT  EMPLOYEES  WITH  NO  OEpCNOENTS. 

STEP-6.  R E AO  FllE-2  RECORD  INTO  WORR-RCCORO  AT  (NO  GO  TO  STCP-O. 
STEP-t.  IF  NO-OF -OEPENOINTS  IS  EOUAL  TO  •©•  NOVI  TO 

NO-OP-0£PfNOENrs.  CXNIOIr  NA NED  W0*«-«2C0*0.  CO  TO  STfP-6. 
STEP-1.  CLOSE  PILE-2. 

STOP  RUN. 


FIGURE  2-42  (Cont.) 
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ooico 

004 10 
00404 

004  SO 
004 1C 
00440 
00*44 
00444 
00440 

005  70 
005  TC 
00500 
00514 
00500 
005  OC 
005  01 
00540 
00540 
0054C 
00544 
00544 
00500 
00504 
0O5C0 
005CO 
005C0 
005C0 
005C4 
005C4 
005C4 
005C4 
005CC 
005CC 
005CC 
00500 
00504 
00504 
00504 
00504 
00500 
00500 
00500 


SAVE  44(4 
SWITCH 
T4UY 
SOM  SAVf 
(HTftV-SAVf 

som  com  size 

HSiO-MflS 
SOM  mt 
WORKING  cetis 
SORT  Fill  sue 
sort  Mooe  size 
rc r-vw  toc 

TOT - VN  T 41 
SORT  48  400«ISS 
l (NOTH  OR  V*  T SI 
1NCTH  Qf  SORT 44 
RGN  10 
41  I N I T 1 | 

U*SI  SWITCHCS 
ovmhow  ceus 
•L  CEUS 
017  40*  ceus 

Tf HR  STORAGC 
T( HR  ST0R4GC-Z 
T(WR  STORAGE-! 
tchr  sro*4Ge-4 
ou  ceus 
vi c ceus 
set  reus 
i*oex  ceus 
subaor  ceus 
ohctl  ceus 
Rfwcu  ceus 
RRHS4V  ceus 
vn  ceus  ' 

SAVE  **74  -Z 
KS4SW  reus 

454  ceus 
R4R  4 m ceus 

RRTS4V  4*(4 
CHtCRRT  f?0 
10RT«  ceUI 
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MCWfl  ASIIWKINT 

Ml  * H *1  *-(D 
IN  » K •! 

III  • II  *1 

OBJECT  CODE  LISTING. 


4? 


4* 

TO 


0006FC 

41 

40 

002 

14 

4,002(0,41 

0HM-1~))4 

000700 

41 

20 

000 

LM 

2,00010, 4) 

OHM- 1-304 

000 TO* 

4C 

20 

0)4 

MM 

2,0)4(0,121 

Ilf  42 

000700 

*.4 

42 

44 

4,2 

000704 

SI 

40 

031 

S 

4,0)9 (0,121 

Ilf  40 

OOOTOi 

30 

40 

IX 

if 

4,  lDCtO, 1 )l 

SBS-1 

000712 

)• 

10 

0 

IK 

L 

i4,ioc(o,m 

S»S*I 

0007U 

02 

00 

Oil 

f 

000 

011(1,61,0001141 

OM-1-432 

0007 1C 

7 4 

so 

030 

C 

0)C 

090(4, 41. OKI  1. 121 

ONM-2-11) 

00072? 

41 

40 

OIK 

4 ,01 C 10,41 

Ohm* i-)32 

000724 

44 

20 

000 

IN 

2,000(0,41 

0HM-1-304 

000724 

4C 

20 

0)4 

MN 

2,0)4(0,121 

UT*| 

000726 

14 

4? 

41 

4,2 

000730 

36 

40 

c 

0)4 

s 

4,034(0,121 

1 If  *0 

0007)4 

SO 

40 

0 

ICO 

if 

4, 1(0(0, 1)1 

S4S-2 

000T)| 

SI 

(0 

0 

1E0 

L 

14,1(0(0,1)1 

S9S-2 

0007 )C 

02 

00 

4 

04) 

1 

000 

MVC 

04)1 1,41. 0001  14) 

OHM-2-37 

000742 

42 

40 

4 

044 

NVI 

044(41,4' 40* 

DNK«2-)7M 

ow»- i-m| 

UT»4 


DNM*|-)42 


//  txtc  LNKCOT 


LINKAGE  EDITOR  MAP. 


.HAS  I X.4-A0  IOCUM  HICOM  014-40 
TM4S6 •••  00IJ40  001210  004401  5)  01  2 


(SO  TYF| 

1.4)61 

1040(0 

«l-F» 

CiCCf 

TiiTRUN 

003240 

00)240 

ciicr 

• CNT4Y 

• CMT4Y 

• INfftV 

UfdlZM 
( JFF222H 

1 JFFB222 

1 JCF  <122 

003C30 
00  )C  30 
00 1C  30 
003C30 

00)00 

CiCCf 

INflY 

KB0S4I0 

11)0)4(1 

0049F0 

004404 

0049F0 

CilCf 

HIOMMSO 

0044(4 

00440 

Cilcf 

• CMT4Y 

• CMTIY 

• fMf»Y 

iieoos’o 

lllOOSM 

UI00SF2 

KOOOSF) 

0041)4 

004704 

004740 

004431 

004100 

CiCCf 

IlCOlMLO 

004440 

004440 

CiCCf 
CNT4Y 
• CMfOY 

IJJCF01 

IJ2C»01N 

UJC’O) 

003FC0 

003FC0 

003FCO 

OOKCO 

//  him  inooi.c  til* 
//  (lie 
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omii  mocnm  (Hie*  tMiMumoo  - mu  locarioM  ocmc  - condition  coot  a - o»t»  uccmion  QQ 

OtOOl  JOI  OUCMO  CONCIUO 


c«  0-»  OOCOIOtO  COOOT'oO  00000301  OOOOOOOl 
ON  0-0  0000)500  0000)0(1  OOOOWtO  0000)1*0 

fp  ftto  00000000  00000000  00000000  ooocoooo 

CO*  MS  0*  AOO0  1 \ 0 00200 


00003)04  >000 JC  1 2 0000538*  0000)550 
00003110  00003411  00003314  00004110 
00000000  00000000  OOOOCOOO  00000000 


oooooo 

000020 

000040 

000040 

000080 

000040 

ooooco 
0000(0 
. COOl 00 
000120 
000 \ 40 
000140 
0001 40 
000140 

0001  CO 
COO If  0 
000200 
000220 
000240 
000240 

0002  80 
000240 
0092C0 
000  2 f 0 
000300 
000320 
C0e)40 
000  3 60 
000360 
000340 
0CO3CO 
0003(0 
0004 00 
000420 
OO0**O 
0004*0 
000400 
000440 
0004CO 
06041:0 
003  3 00 
000320 
000540 
000540 
000360 
000340 
0005C0 
0003(0 
000  4 00 
0C0420 
000*40 
0006*0 


00000000 

4003000? 

00002(20 

00040000 

ooocoooo 

03464400 
06000660 
400C4T10 
010(4104 
t 0 4*0  7 70 
43706216 
(0441664 
40006140 
46400262 
40306660 
4 l 10(070 
0000700') 
C 4 f 3C  K7 
4S407C0" 
00007044 
010010  4fi 
000014  7C 
OOOC70  *»L 
46400236 
4 1 (K  0 009 
40(OOI( 5 
02(  04160 
46667000 
102)47*0 
OOC  442  30 

4 6 OC  l 0 ? 4 
0 3CC  42  04 
43600237 
4WIOOO0 
42000404 
20004070 
06000301 
0023*760 
02740200 
4 70006 7 f 
0 2CC  4 30 7 
02004144 
91406004 
02034900 
40603000 
30104700 
93033010 
9C0C0001 
00434770 

30600044 

4 7 T0C6  34 
6T7Q0300 


00009000 
-0002(06 
08009000 
000003)6 
OOJOOOOO 
04704140 
06000660 
00(49260 
*0004700 
94097030 
07004200 
0306  §( f ( 
40014710 
41  44C200 
01000200 
4 7#  06 166 
•0001044 
r 032*040 
OOC  62 1 71 

oooooooc 
: ■'oooooo 
*79000000 

90003220 
4**00262 
0779*401 
0*0  700  3 0 
<31  0644  0 0 
0 7*61410 
0404  130 
04004120 

0 7**1  *34 
00000  7*9 
47000366 
43TGSC4C 
02000440 
02344336 
O922302C 
046(9110 
0*014000 

4 ?*  oo* ( c 
60004770 
00000303 
47000360 
70019300 
*73003090 
00404101 
47000634 
4 770030  2 
069C4I 4» 

* * *06  ooc 

43  700034 
43700664 


09000000 
00  13*5907 
000027 1 g 
000*000 0 
OOC 90000 
C0344370 
060041 00 
*00143(2 
010(4203 
0 701  7 03  0 
OOf  74.300 
000C434I 
036*0207 
02010016 
OO30*»?04 
460  1093* 

0 00  4610  2 
000740  0 0 
2 l 7 *22  6® 
22f  2 1 ( 4f 
00000900 
OOOOCOOO 

1 0002  X ( 

41004000 

4000**00 

( O9C940O 

00234740 

10664121 

00 13 10 2 3 

02364  122 

4i4j; >02 

43000401 

0302*093 

03021004 
*0004123 
7000*430 
470000(4 
300*4700 
301040^0 
300000  0C 
0366020? 
70014000 
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2.5.5.13  Interpreting  Output 


• The  Full  American  National  Standard  COBOL  compiler,  COBOL 
object  module,  Linkage  Editor,  and  other  system  components  can 
produce  output  in  the  form  of  printed  listing,  punched  card  decks 
diagnostic  or  informative  messages,  and  data  files  directed  to 
tape  or  to  mass  storage  devices.  This  chapter  gives  the  format 
of  and  describes  this  output.  The  same  COBOL  program  is  used  for 
each  example.  "Sample  Program  Output"  shows  the  output  formats 
in  the  context  of  a complete  listing  generated  by  the  sample 
program. 


COMPILER  OUTPUT.  The  output  of  the  compilation  job  step 


may  include 


s A printed  listing  of  the  job  control  statements 


• A printed  listing  of  the  statements  contained  in  the 
source  program. 


s A glossary  of  compiler-generated  information  about  data 


Global  tables,  register  assignments,  and  literal  pools 


s A printed  listing  of  the  object  code 


s A condensed  listing  containing  only  the  relative  address 
of  the  first  generated  instruction  for  each  verb. 


Compiler  diagnostic  messages 


s A cross-reference  listing 


• An  object  module 


The  presence  or  absence  of  the  above-mentioned  types  of 
compiler  output  is  determined  by  options  specified  at  system 
generation  time.  These  options  can  be  overridden  or  additional 
options  specified  at  compilation  time  by  using  the  OPTION 
control  statement  and  the  CBL  card. 
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The  level  of  diagnostic  message  printed  depends  upon  the  FLAGW 
or  FLAGE  option  of  the  CBL  card. 

All  output  to  be  listed  is  written  on  the  device  assigned  to 
SYSLST.  If  SYSLST  is  assigned  to  a magnetic  tape,  COBOL  will 
treat  the  file  as  an  unlabeled  tape.  Line  spacing  of  the  source 
listing  is  controlled  by  the  SPACEn  option  of  the  CBL  card  and  by 
SKIP  1/2/3  and  EJECT  in  the  COBOL  source  program.  The  number  of 
lines  per  page  can  be  specified  in  the  SET  command.  In  addition, 
a listing  of  input/output  assignments  can  be  printed  on  SYSLST  by 
using  the  LISTIO  control  statement. 

The  illustration  of  compiler  output  (FIGURE  2-47,  page  2-420) 
contains  the  compiler  output  listing  showing  Sample  Program  Output. 
Each  type  of  output  is  numbered,  and  each  format  within  each  type 
is  lettered.  The  text  below  and  that  following  the  listing  is  an 
explanation  of  the  ENTRY. 

• (Circle  1)  The  listing  of  the  job  control  statements 
associated  with  this  job  step.  These  statements  are  listed 
because  THE  LOG  option  was  specified  at  system  generation  time. 

• (Circle  2)  Compiler  options.  The  CBL  card,  if  specified, 
is  printed  on  SYSLST  unless  the  LIST  option  is  suppressed. 

• (Circle  3)  The  source  module  listing.  The  statements  in 
the  source  program  are  listed  exactly  as  submitted  except  that  a 
compiler-generated  card  number  is  listed  to  the  left  of  each  line. 
This  is  the  number  referenced  in  diagnostic  messages  and  in  the 
object  code  listing.  It  is  also  the  number  printed  on  SYSLST  as  a 
result  of  the  source  language  TRACE  statement.  The  source  module 
is  not  listed  when  the  NOLIST  option  is  specified. 

• The  following  notations  may  appear  on  the  listing: 

"C"  Denotes  that  the  statement  was  inserted  with  a COPY 
statement. 


**  Denotes  that  the  card  i3  out  of  sequence.  NOSEQ 
should  be  specified  on  the  CBL  card  if  the  sequence  check 
is  to  be  suppressed. 
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"I"  Denotes  that  the  card  was  Inserted  with  an  INSERT 
or  BASIS  card. 


• If  DATE-COMPILED  is  specified  in  the  Identification 
Division,  any  sentences  in  that  paragraph  are  replaced  in  the 
listing  by  the  date  of  compilation.  It  is  printed  in  one  of  the 
following  formats  depending  upon  the  format  chosen  at  system 
generation  time. 


(Circle  4)  Glossary.  The  glossary  is  listed  when  the  . fM 
option  is  specified.  The  glossary  contains  information  about 
names  in  the  COBOL  source  program. 


Columns  'A'  and  'F' , the  internal-name  generated  by  the  com- 
piler. This  name  is  used  in  the  compiler  object  code  listing  to 
represent  the  name  used  in  the  source  program.  It  is  repeated 
in  column  'F*  for  readability. 

Column  'B',  a normalized  level  number.  This  level  number  is 
determined  by  the  compiler  as  follows:  the  first  level  number 
of  any  hierarchy  is  always  01,  and  increments  for  other  levels 
are  always  by  one.  Only  level  numbers  03  through  49  are  affected; 
level  numbers  66  (not  CSC  COBOL),  77,  and  88,  and  FD,  SD,  RD 
indicators  are  not  changed. 

Column  'C',  the  data-name  that  is  used  in  the  source  module. 

Columns  'D'  and  'E' , for  data-names,  contain  information 
about  the  address  in  the  form  of  a base  and  displacement.  For 
file-names,  the  column  contains  information  about  the  associated 
DTF,  if  any. 
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Column  'G',  defines  storage  for  each  data  Item.  It  is  repre- 
sented in  assembler-like  terminology.  The  Glossary  definition 
and  usage  table  refers  to  information  in  this  column. 


Column  'H' , usage  of  the  data-name.  For  FD  entries,  the  DTF 
type  is  Identified  (e.g.,  DTFDA) . For  group  items  containing  a 
USAGE  clause,  the  usage  type  is  printed.  For  group  items  that  do 
not  contain  a USAGE  clause,  GROUP  is  printed.  For  elementary 
items,  the  information  in  the  USAGE  clause  is  printed. 


GLOSSARY  DEFINITION  AND  USAGE.  (Refer  to  FIGURE  2-43.) 


TYPE 

DEFINITION 

USAGE 

Group-Fixed-Length 

DS  OCLN 

GROUP 

Alphabetic 

DS  NC 

DISP 

Alphanumeric 

DS  NC 

DISP 

Alphanumeric  Edited 

DS  NC 

AN-EDIT 

Numeric  Edited 

DS  NC 

NM-EDIT 

Index-Name 

DS  1H 

INDEX-NM 

Group  Variable-Length 

DS-VLI-N 

GROUP 

Sterling  Report 

DS  NC 

RPT-ST 

External  Decimal 

DS-NC 

DISP-NM 

External  Floating-Point 

DS-NC 

DISP-FP 

Internal  Floating-Point 

DS  IF 

COMP-1 

DS  ID 

COMP -2 

Binary 

DS  1H,  IF,  or  2F 

COMP 

Internal  Decimal 

DS  NP 

COMP- 3 

Sterling  Non-Report 

DS  NC 

DISP-ST 

Index-Name 

BLANK 

INDEX-NAME 

File  (FD) 

BLANK 

DTF  TYPE 

Condition  (88) 

BLANK 

BLANK 

Report  Definition  (RD) 

BLANK 

BLANK 

Sort  Definition  (SD) 

BLANK 

BLANK 

Note:  Under  the  definition 

column,  N-size  in  bytes. 

except  in  group 

variable- length  where  it  is 

a variable  cell  number. 

— 
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the  letter  under  column 


Column  'J 


R - Indicates  that  the  data-name  redefines  another 
data-name. 


0 - Indicates  that  an  OCCURS  clause  has  been  specified 
for  that  data-name. 


Indicates  that  the  data-name  is  or  contains  the 
DEPENDING  ON  object  of  the  OCCURS  clause. 


M - Indicates  the  record  format.  The  letters  which 
may  appear  under  column  M are: 


F - fixed-length  records 


U - undefined  records 


V - variable-length  records 


S - spanned  records 


(Circle  5)  Global  tables  and  literal  pool  are  listed  when 
the  LISTX  option  is  specified,  unless  SUPMAP  is  also  specified 
and  an  E-level  error  is  encountered.  A global  table  contains 
easily  addressable  information  needed  by  the  object  program  for 
execution.  For  example,  in  the  Procedure  Division  output  coding 
(3),  the  address  of  the  first  instruction  under  STEP-1  (OPEN 
OUTPUT  FILE-1)  is  found  in  the  PROCEDURE  NAME  CELLS  portion  of 
the  Program  Global  Table  (PGT) . 


(Circle  (5, A))  The  Task  Global  Table  (TGT)  is  used  to  record 
and  save  information  needed  during  the  execution  of  the  object 
program.  This  Information  includes  switches,  addresses,  and  work 
areas . 
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(Circle  (5,B))  The  Literal  Pool  lists  all  literals  used  in 
the  program,  with  duplications  removed.  These  literals  include 
those  specified  by  the  compiler  (e.g.,  to  align  decimal  points 
in  arithmetic  computations).  The  literals  are  divided  into  two 
groups:  those  that  are  referenced  by  instructions  (marked 
"LITERAL  POOL")  and  those  that  are  parameters  to  the  display 
object  time  subroutine  (marked  "DISPLAY  LITERALS"). 

(Circle  (5,C))  The  Program  Global  Table  (PGT) , contains 
literals  and  the  addresses  of  procedure-names  and  generated 
procedure-names  referenced  by  Procedure  Division  instructions. 

(Circle  (5,6))  Register  assignment  lists  the  permanent 
register  assigned  to  each  base  locator  in  the  object  program. 

The  remaining  base  locators  are  given  temporary  register  assign- 
ments but  are  not  listed.  Register  assignments  are  listed  when 
LISTX  is  specified. 

(Circle  7)  The  object  code  listing  is  produced  when  the 
LISTX  option  is  specified,  unless  SUPMAP  is  also  specified  and 
an  E-level  error  is  encountered.  The  actual  object  code  listing 
contains : 


(Column  A)  The  compiler-generated  card  number  identifies 
the  COBOL  statement  in  the  source  deck  which  contains  the  verb 
that  generates  the  object  code  found  in  column  C. 


bJ 


< 


o 


(Column  B)  The  relative  location,  in  hexadecimal  notation, 
of  the  object  code  instruction  in  the  module. 


I Column  C) 
mal  notation. 


The  actual  object  code  instruction  in  hexadeci- 


( Column  D)  The  procedure-name  number.  A number  is 
assigned  only  to  procedure-names  referred  to  in  other  Procedure 
Division  statements. 

(Column  E)  The  object  code  instruction  in  the  form  that 
closely  resembles  assembler  language  (Displacements  are  in  hexa- 
decimal notation). 
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(Column  F)  Compiler-generated  information  about  the 
operands  of  the  generated  instruction.  This  includes  names  and 
relative  locations  of  literals. 

(Circle  8)  The  cross  reference  dictionary  is  produced  when 
the  XREF  option  is  specified.  It  consists  of  two  parts: 

(Column  A)  The  XREF  dictionary  for  data-names  consists  of 
data-names  followed  by  the  generated  card  number  of  the  statement 
which  defines  each  data-name,  and  the  generated  card  number  of 
statements  where  each  data-name  is  referenced. 


(Column  B)  The  XREF  dictionary  for  procedure-names  con- 
sists of  the  procedure-names  followed  by  the  generated  card 
number  of  the  statement  where  each  procedure-name  is  used  as  a 
section-name  or  paragraph-name,  and  the  generated  card  number  of 
statements  where  each  procedure-name  is  referenced. 

The  names  appear  in  the  order  in  which  they  appear  in  the 
source  program.  The  number  of  references  appearing  in  the  cross- 
reference  dictionary  for  a given  name  is  based  upon  the  number  of 
times  the  name  is  referenced  in  the  code  generated  by  the 
compiler.  (Refer  to  FIGURE  2-44.) 


SYMBOLS 

USED  IN  THE  LISTING  AND  GLOSSARY  TO  DEFINE 
COMPILER-GENERATED  INFORMATION 

SYMBOL 

MEANING 

DNM 

SOURCE  DATA  NAME 

SAV 

SAVE  AREA  CELL 

SWT 

SWITCH  CELL 

TLY 

TALLY  CELL 

WC 

WORKING  CELL 

TS 

TEMPORARY  STORAGE  CELL 

VLC 

variable  LENGTH  CELL 

SBL 

SECONDARY  BASE  LOCATOR 

BL 

base  LOCATOR 

BLL 

BASE  LOCATOR  FOR  LINKAGE  SECTION 

ON 

ON  COUNTER 
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SYMBOLS 

USED 

IN  THE  LISTING  AND  GLOSSARY  TO  DEFINE 

COMPILER-GENERATED  INFORMATION  (Cont.) 

SYMBOL 

MEANING 

PFM 

PERFORM  COUNTER 

PSV 

PERFORM  SAVE 

VN 

VARIABLE  PROCEDURE  NAME 

SBS 

SUBSCRIPT  ADDRESS 

XSW 

EXHIBIT  SWITCH 

XSA 

EXHIBIT  SAVE  AREA 

PRM 

PARAMETER 

PN 

SOURCE  PROCEDURE  NAME 

GN 

GENERATED  PROCEDURE  NAME 

DTF 

DTF  ADDRESS 

VN 

VARIABLE  NAME  INITIALIZATION 

LIT 

LITERAL 

TS2 

TEMPORARY  STORAGE 
(NON-ARITHMETIC) 

RSV 

REPORT  SAVE  AREA 

SDF 

SECONDARY  DTF  POINTER 

TS3 

TEMPORARY  STORAGE 
(SYNCHRONIZATION) 

INX 

INDEX  CELL 

V (BCDNAME) 

VIRTUAL 

VIR 

i 

VIRTUAL 

FIGURE  2-44  (Cont.) 


(Circle  9)  The  diagnostic  message  associated  with  the  compi- 
lation are  always  listed.  The  format  of  the  diagnostic  message 
is: 

(Circle  (9,A))  Compiler-generated  card  number  is  the  number 
of  a line  in  the  source  program  related  to  the  error. 
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(Circle  (9,B))  The  message  identification  for  the  Disk 
Operating  System  Full  American  National  Standard  COBOL  compiler 
always  begins  with  the  symbols  ILA. 

(Circle  (9,C))  There  are  four  severity  levels  as  follows: 

• (W)  Warning.  This  level  indicates  that  an  error  was  made 
in  the  source  program.  However,  it  is  not  serous  enough  to 
interfere  with  the  execution  of  the  program.  These  warning 
messages  are  listed  only  if  the  FLAGW  option  is  specified  in  the 
CBL  card  or  chosen  at  system  generation  time. 

• (C)  Conditional.  This  level  indicates  that  an  error  was 
made  but  the  compiler  usually  makes  a corrective  assumption. 

The  statement  containing  the  error  is  retained.  Execution  can 
be  attempted. 

• (E)  Error.  This  level  indicates  that  a serious  error  was 
made.  Usually  the  compiler  makes  no  corrective  assumption.  The 
statement  or  operand  containing  the  error  is  dropped.  Compi- 
lation is  completed,  but  execution  of  the  program  should  not  be 
attempted. 

• (D)  Disaster.  This  error  indicates  that  a serious  error 
was  made.  Compilation  is  not  completed.  Results  are  unpre- 
dictable. 

(Circle  (9,D))  The  message  text  identifies  the  condition 
that  caused  the  error  and  indicates  the  action  taken  by  the 
compiler . 

OBJECT  MODULE. 

• The  object  module  contains  the  external  symbol  dictionary, 
the  text  of  the  program,  and  the  relocation  dictionary.  It  is 
followed  by  an  END  statement  that  marks  the  end  of  the  module. 

For  additional  information  about  the  external  symbol  dictionary 
and  the  relocation  dictionary,  see  the  publication  DOS  System 
Control  and  Service. 
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• An  object  deck  is  punched  if  the  DECK  option  is  specified, 
unless  an  E-level  diagnostic  message  is  generated.  The  object 
module  is  written  on  SYSLNK  if  the  LINK  option  is  specified, 
unless  an  E-level  diagnostic  message  is  generated. 

LINKAGE  EDITOR  OUTPUT.  The  output  of  the  link  edit  step  may 
include: 

• A printed  listing  of  the  job  control  statements. 

• A map  of  the  phase  after  it  has  been  processed  by  the 
Linkage  Editor. 

• Diagnostic  messages. 

• A listing  of  the  linkage  editor  control  statements. 

• A phase  which  may  be  assigned  to  the  core  image  library. 

Any  diagnostic  messages  associated  with  the  Linkage  Editor 
are  automatically  generated  as  output.  The  other  forms  of  output 
may  be  requested  by  the  OPTION  control  statement.  All  output  to 
be  listed  is  printed  on  the  device  assigned  to  SYSLST. 

The  illustration  of  Linkage  Editor  Output  (FIGURE  2-48,  page 
2-424)  is  an  example  of  a linkage  editor  output  listing.  It  shows 
the  job  control  statements  and  the  phase  map.  The  different  types 
of  output  are  numbered  and  each  type  to  be  explained  is  lettered. 

Comments  on  the  Phase  Map.  The  severity  of  linkage  editor 
diagnostic  messages  may  affect  the  production  of  the  phase  map. 
Since  various  processing  options  affect  the  structure  of  the 
phase,  the  text  of  the  phase  map  will  sometimes  provide  addi- 
tional information.  For  example,  the  phase  may  contain  an  over- 
lay structure.  In  this  case,  a map  will  be  listed  for  each 
segment  in  the  overlay  structure. 

LINKAGE  EDITOR  MESSAGES.  The  Linkage  Editor  may  generate  in- 
formative or  diagnostic  messages.  A complete  list  of  these  mes- 
sages is  included  in  the  publication  DOS  Operator  Communications 
and  Messages. 
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DOS  ANS  COBOL  UNRESOLVED  EXTERNAL  REFERENCES. 

• When  the  linkage  editor  encounters  a weak  external  refer- 
ence (WXTRN) , autolinking  is  suppressed  and  the  V-type  address 
constant  is  either  resolved  from  those  modules  included  into  the 
load  module  or  it  remains  unresolved.  Unresolved  WXTRNs  will  not 
cause  the  linkage  editor  to  cancel  the  link  step  if  ACTION  CANCEL 
is  in  effect. 

• The  object  time  subroutine  library  of  the  ANS  FULL  COBOL 
compiler  utilizes  WXTRNs  not  only  as  address  constants  but  also 
as  switches  to  determine  at  object  time  whether  certain  options 
are  in  effect. 

• Unresolved  WXTRNs  are  normally  intentional  but  unresolved 
WXTRNs  are  normally  unintentional  and  an  error. 

• Any  of  the  following  unresolved  WXTRNs  may  appear  when 
link  editing  an  object  module  produced  by  an  ANS  COBOL  compiler: 


ILBDCKP2 


ILBDDSP0 

ILBDREL0 


ILBDDSP1 


ILBDDSP3 


COBOL  PHASE  EXECUTION  OUTPUT. 


• The  output  generated  by  program  execution  (in  addition 
to  data  written  on  output  files)  may  include: 

Data  displayed  on  the  console  or  on  the  printer. 

Messages  to  the  operator. 
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System  informative  messages. 

System  diagnostic  messages. 

A system  dump. 

• A dump  and  system  diagnostic  messages  are  generated 
automatically  during  program  execution  only  if  the  program  con- 
tains errors  that  cause  abnormal  termination. 

• The  following  text  is  an  explanantion  of  an  example  of 
output  from  the  execution  job  step.  (Refer  to  FIGURE  2-45.) 


/ /ASSCN  SYS08,X' 183 
//EXEC 


} o 


WORK-RECORD  - A 8001  NYC  2 

76 

77 

WORK-RECORD  - B 0002  NYC  1 

76 

77 

WORK-RECORD  - C 0003  NYC  2 

76 

77 

WORK-RECORD  - D 0004  NYC  3 

76 

77 

WORK-RECORD  - E 0005  NYC  4 

76 

77 

WORK- RECORD  - F 0006  NYC  Z 


//  job  sample 

00.07.09 

A 0001  NYC  0 

B 0002  NYC  1 

C 0003  NYC  2 

D 0004  NYC  3 

E 0005  NYC  4 

F 0006  NYC  0 

G 0007  NYC  1 

H 0008  NYC  2 

1 0009  NYC  3 

J 0010  NYC  4 

K 0011  NYC  8 

L 0012  NYC  1 

M 0013  NYC  2 

N 0014  NYC  3 

0 0ei5  NYC  4 

P 0016  NYC  0 

Q 0017  NYC  1 

R 0018  NYC  2 

S 0019  NYC  3 

T 0020  NYC  4 
U 0021  NYC  0 

V 0022  NYC  1 

W 0023  NYC  2 

X 0024  NYC  3 

Y 0025  NYC  4 

Z 0026  NYC  0 

EOJ  SAMPLE 

00.09.20,  DURATION 


OUTPUT  FROM  EXECUTION  JOB  STEPS 


FIGURE  2-45 
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• Each  of  these  messages  contains  an  identification  code 
in  the  first  column  of  the  message  to  indicate  the  portion  of  the 
operating  system  that  generated  the  message.  The  following 
table  lists  these  codes,  together  with  identification  for  each. 
(Refer  to  FIGURE  2-46.) 


CODE 

IDENTIFICATION 

0 

An  on-line  console  message  from  the 

Supervisor 

1 

A message  from  the  Job  Control  Processor 

2 

A message  from  the  Linkage  Editor 

3 

A message  from  the  Librarian 

4 

A message  from  LIOCS 

7 

A message  from  the  Sort  program 

C 

" 

A message  from  COBOL  object-time 
subroutines 

FIGURE  2-46 


LINKAGE  EDITOR  OUTPUT. 

• (Circle  1)  The  job  control  statements  are  listed  since 
the  LOG  option  is  specified. 

• (Circle  2)  Disk  linkage  editor  diagnostic  message  of 
input.  The  ACTION  statement  is  not  required.  If  the  MAP  option 
is  specified,  SYSLST  must  be  assigned.  If  the  statement  is  not 
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used  and  SYSLST  Is  assigned,  MAP  is  assumed  and  a map  of  main 
storage  and  any  error  diagnostic  messages  are  considered  output 
on  SYSLST. 


• (Circle  3)  Map  of  main  storage.  A phase  map  is  printed 
when  MAP  is  specified  (or  assumed)  during  linkage  editor  process 
lng.  The  following  information  is  contained  in  the  map  of  main 
storage: 


• (Column  A)  The  name  of  each  phase.  This  is  the  name 
specified  in  the  phase  statement. 


• (Column  B)  The  transfer  address  of  each  phase 


• (Column  C)  The  lowest  main  storage  location  of  each 


• (Column  D)  The  highest  main  storage  location  of  each 


phase 


• (Column  E)  The  hexadecimal  disk  address  where  the  phase 
begins  in  the  core  image  library. 


• (Column  F)  The  names  of  all  CSECT's  belonging  to  a phase 


• (Column  G)  All  defined  entry  points  within  a CSECT.  If 
an  entry  point  is  not  referenced,  it  is  flagged  with  an  asterisk 
(*). 


The  address  where  each  CSECT  is  loaded 


• (Column  J)  The  relocation  factor  of  each  CSECT 
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ILLUSTRATION  OF  COMPILER  OUTPUT 


H JOB  SA“®LE 

//  OPTION  NOOK*.  LINK,  LIST,  ’.1ST*,  SYM.ERRS 
//  EAEC  FCOROL 


CBl  OUOTE.SEO 
ooooi  eosoio 

000  *>7  o o - o ? o 

00001  000010 

OC004  000040 

00005  OCOO'O 

00006  000060 

COJOT  000070 
00008  000090 

00509  000090 

000)0  000100 
0001  l OrJl 10 
00017  000170 

oooii  ooono 
00016  000160 

00015  000150 

00016  000 1 60 

00017  000170 

00018  000180 

00019  000190 


IDENTIFICATION  01  VI  S I ON* 

PROGRAM-ID.  TCSTR.JN. 

6UTM06.  PROGRAMMER  NAME. 

INSTALLATION.  NEW  YORK  PROGRAMMING  CENTER. 

0ATE-WR|1T£N.  FEBRUARY  7,1971 
OR  I C -C  O'TP  1 IE  0 . 06/74/71 

REPAIRS.  THIS  0R0G«AM  MAS  BEEN  WRITTEN  AS  A SAMPLE  PROGRAM  FOR 
COBOL  USERS.  IT  CREATES  AN  OUTPUT  FILE  ANO  READS  IT  BACA  AS 
IN»UT. 

ENVIRONMENT  OIVISION. 

COM  IGURAT ION  SEC  HUN. 

60URC1 -C0MPU7F®.  I8M-160-M50. 

OdJiCT-CUMPUTtA.  10M-160-M50. 

INPUT-OUTPUT  SECTION. 

F ICE-CONTROL. 

SELECT  FILE  1 ASSIGN  TO  SYS009-UT-7400-S. 

SELECT  FILE-'  ASSIGN  TO  SYS008-UT-7600-S. 


000550  PROCEDURE  DIVISION. 

000560  PEGIN.  REAOV  TRACE. 

000570  NOTE  that  the  FOLLOWING  OPLNS  TNI  0U1PUT  TILE  TO  BE  CAEATEO 

000580  ANO  IN  I T I AL I ECS  COUNTERS. 

000590  STER-1.  OPEN  OUTPUT  FllE-l.  MOVE  TERO  TO  COUNT,  NUMBR. 


00071 

00576 

00075 

00076 
005  7 7 
000  7 S 
0007  9 
OOOBO 


000770  5TEP-5.  CLOSE  FllE-l.  OPEN  INPUT  FILE-2. 

005710  NOTE  THAT  the  FOLLOWING  READS  BACA  TmE  FILE  ANO  SINGLES 

000760  OUT  E“PI0YEES  WITH  NO  DEPENDENTS. 

C 0 0 7 5 0 STEP-0.  R E AO  FUE-7  RIC'IPQ  INTO  WORA-RECOAO  AI  ENO  GO  TO  STEP-8. 
000760  STEP-7.  IF  NO-DF-OC PL  NOE N» S IS  E DUAL  70  "0“  MOVE  "I"  10 
000770  NO-OE-OEPENDENTS.  EAMIBIT  named  MORA-RECORD.  GO  to  STEP-6, 

000780  STEP-8.  CLOSE  F|l£-7. 

000790  STOP  RUN. 
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2.5.5.14  OS  COBOL  Program  Debugging  Aids. 


INTRODUCTION. 


• As  the  result  of  testing  COBOL  programs,  abnormal  dumps 
may  occur.  The  reason  for  abnormal  termination  Is  usually  indi- 
cated by  a system  completion  code  which  appears  on  the  ABEND  dump 
listing.  A SYSUDbMP  or  SYSABEND  JCL  card  must  be  provided  for 
each  step  where  a co^e  dump  is  required. 


• The  general  explanation  for  systems  completion  codes  are 
usually  in  the  IBM  Messages  and  Codes  Manual.  For  some  codes,  the 
explanation  may  not  be  adequate  for  determining  the  exact  reason 
for  the  abnormal  termination  of  the  program.  For  additional 
explanation  of  COBOL  core  dumps,  see  Programers  Guide  to  Debugging. 


• Following  is  a list  of  fifteen  of  the  most  commonly 
encountered  system  completion  codes.  For  each  one,  the  error  is 
described,  possible  causes  listed  and  additional  reference  infor- 
mation given.  Not  all  of  the  information  provided  will  apply  in 
every  case,  but,  as  far  as  possible,  common  causes  and  sources  of 
information  are  pointed  out.  The  completion  codes  are  listed  in 
sequence  for  easy  reference. 
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2.5.5.15  COMPLETION  CODE  - 001. 

ERROR  DESCRIPTION. 

• Input/Output  error,  issued  under  QSAM  or  BSAM. 

• No  SYNAD  exit  was  specified. 

PROBABLE  CAUSES. 

• Wrong  length  record. 

• Wrong  length  physical  block. 

• No  end  of  file  marker. 

• Attempt  to  read  record  after  end-of-file  condition  found. 

• Physical  damage  to  recording  medium. 

• Device  malfunction. 


ADDITIONAL  REFERENCE  INFORMATION. 

• Before  proceeding,  refer  to  Messages  and  Codes  on  listing 
number  IEC0201. 

• Register  1 of  the  SVRB  for  SVC  55  (end-of-volume)  points 
to  DCB  for  which  the  I/O  error  was  found. 

• Register  2 also  points  to  the  DCB  (if  these  registers 
vary,  register  2 is  more  likely  to  be  correct;  register  1 is 
altered  regularly  by  several  supervisor  routines). 

• Register  0 points  to  the  IOB-8. 

• Address  of  the  DCB  + hex  2D  (dec.  45):  DEB  address. 

• Address  of  the  DEB  + hex  21  (dec.  33):  UCB  address. 

• Address  of  the  DCB  + hex  44  (dec.  68):  IOB  prefix  address. 


I 
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2.5.5.15  COMPLETION  CODE  - 001.  (Cont.) 

• First  IOB  prefix  + 1:  Second  IOB  prefix  address. 

• Second  IOB  prefix  + 1:  third  IOB  prefix  address,  etc. 

• Register  4 contains  a pointer  to  the  current  IOB  prefix. 

• Register  6 should  contain  the  same  pointer  as  register  4. 

• IOB  prefix  address  + 8:  Standard  IOB  fields. 

• First  byte  of  IOB,  IOBFLAG1  field,  bit  5 on  indicates 
permanent  error. 

• IOB  address  + 2:  first  and  second  sense  bytes. 

• IOB  address  + 4:  event  control  block  (ECB)  completion 

code. 

• IOB  address  + 5:  address  of  ECB. 

• IOB  address  + hex  C (dec.  12):  two  bytes,  status  infor- 
mation of  the  last  channel  status  word  (CSW) . 

• Register  5 contains  the  first  byte  of  flags  (IOBFLAG1) 
and  the  first  and  second  sense  bytes. 

• IOB  address  + hex  11  (dec.  17):  address  of  channel 
program. 

• IOB  address  + hex  20  (dec.  32):  or  hex  28  (dec.  40) 
for  direct  access  devices:  channel  program  beginning. 
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2.5.5.16  COMPLETION  CODE  - 013. 

ERROR  DESCRIPTION. 

• Detection  of  conflicting  or  unsupported  parameters 
during  OPEN  processing. 

PROBABLE  CAUSES. 

• Member  name  specified  in  a DD  statement  could  not  be 
found. 


• A directory  allocation  subparameter  was  not  specified  in 
a DD  statement  for  a partitioned  data  set. 

• Conflicting  or  incomplete  DCB  subparameters. 

• No  BLKSIZE  DCB  subparameter  specified  for  a DUMMY  data 

set. 


• Default  SYSIN  or  SYSOUT  blocking  (specified  in  OS 
procedures)  conflicts  with  problem  program  specifications. 

• Track  overflow  or  updating  may  be  attempted  for  an 
operating  system  version  that  does  not  support  these  features. 

ADDITIONAL  REFERENCE  INFORMATION. 

• Before  proceeding,  refer  to  Messages  and  Codes  message 
number  IEC  1411. 

• The  PSW  field  of  the  dump  (not  the  APSW  field)  gives  the 
next  instruction  to  be  executed  in  the  problem  programs. 


• The  loader  or  linkage  editor  map  can  help  specify  if  this 
Instruction  is  in  the  mainline  processing  or  in  a called  module. 


( ) 
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2.5.5.17  COMPLETION  CODE  - 031. 

ERROR  DESCRIPTION. 

• An  input/output  error  was  detected  when  processing  under 
the  indexed  sequential  access  method  (QISAM) . 

PROBABLE  CAUSES. 

• Physical  damage  to  recording  medium  or  device. 

• Out  of  sequence  key  when  loading  an  ISAM  data  set. 

• Wrong  length  record  or  block. 

ADDITIONAL  REFERENCE  INFORMATION. 


• The  DCB  for  the  file  which  contains  the  I/O  error  can  be 
found  as  follows: 

Note  address  of  'INTERRUPT'. 

Find  the  module  in  which  the  interrupt  occurred  in  the 
'LOAD  LIST' . 

Under  'SAVE  AREA  TRACE'  find  module  name  that  was  ENTERED 
VIA  CALL.  The  return  address  in  the  problem  program  is  listed 
under  'RET' . The  last  macro  instruction  (calling  an  SVC  instruc- 
tion) in  the  problem  program  before  this  address  was  the  one 
executing  when  the  ABEND  occurred. 

The  DCBEXCD1  and  DCBEXCD2  fields  of  the  ISAM  DCB  indicate 
the  cause  of  the  error.  DCBEXCD1  is  at  offset,  hex  50  (dec.  80) 
of  the  DCB  access  method  interface  for  ISAM  section,  DCBEXCD2  is 
at  offset  51  (dec.  81).  These  fields  contain: 

DCBEXCDl 


Bit 

Meaning 

0 

Lower  limit  key  not  found 

1 

Invalid  device  address  for  lower  limit 

CSCM  18-1-1 
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2.5.5.17  COMPLETION  CODE  - 031.  (Cont.) 


Meanin 


Space  not  found 
Invalid  request 
Incorrectable  input  error 
Incorrectable  output  error 
Unreachable  block 
Overflow  record 


DCBEXCD2 


Bit 

Meaning 

0 

Sequence  check 

1 

Duplicate  record 

2 

DCB  closed  when  error  detected 

3 

Overflow  record 

4-7 

Reserved  bits 

of  error 


A SYNAD  routine  may  be  helpful  in  pinpointing  the  cause 
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2.5.5.18  COMPLETION  CODE  - 03B. 

ERROR  DESCRIPTION. 

• The  error  occurred  during  OPEN  processing  for  an  indexed 
sequential  data  set. 

PROBABLE  CAUSES. 

• The  data  set  had  not  been  created. 

• The  data  control  block  had  not  been  closed  after  the  data 
set  had  been  created. 

ADDITIONAL  REFERENCE  INFORMATION. 

• An  indexed  sequential  file  must  be  created  and  closed 
before  it  can  be  accessed. 

• Be  certain  that  the  DCB  subparameter  MACRF  specifies  an 
indexed  sequential  data  set  (Assembly  Language) . 

• Be  certain  that  indexed  file  creation  and  retrieval  is 
specified  in  the  source  program  code  (COBOL). 

• The  presence  of  a format  2 data  set  control  block  (DSCB) 
on  a direct  access  device  indicates  the  creation  of  an  Indexed 
sequential  data  set. 
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2.5.5.19  COMPLETION  CODE  - 03D. 

ERROR  DESCRIPTION. 

• The  error  occurred  during  OPEN  processing  for  an  indexed 
sequential  or  direct  data  set. 

PROBABLE  CAUSES. 

• Indexed  sequential  organization  not  specified  in  the 
DSORG  subparameter  of  the  DCB  (this  is  required,  even  if  indexed 
organization  is  specified  in  the  source  program). 

• Not  all  volume  serial  numbers  were  specified,  or  they 
were  not  in  correct  sequence. 

ADDITIONAL  REFERENCE  INFORMATION. 

• Before  proceeding,  refer  to  Messages  and  Codes  message 
number  IEC  1565. 

• For  indexed  sequential,  the  volume  containing  the  index 
must  be  described  in  the  first  job  control  language  statement. 

• The  number  of  volumes  and  the  number  of  units  to  which 
these  volumes  will  be  mounted  must  be  the  same;  all  volumes  must 
be  mounted . 
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2.5.5.20  OCx  COMPLETION  CODE  NOTE. 

• A number  of  similarities  exist  among  the  debugging  tech- 
niques indicated  for  the  0C1,  0C2,  0C4,  OC5,  0C6,  and  OC7 
completion  codes  that  follow.  These  techniques  are  also  appli- 
cable to  other  OCx  completion  codes  not  reviewed  in  this  analysis, 
namely  0C3,  0C8,  0C9 , OCA,  OCB,  OCC,  OCD,  OCE  and  OCF.  These 
latter  codes  are  rarely  encountered. 

• Because  of  the  similarity  of  the  processing  leading  to 
these  codes,  check  other  OCx  dump  reference  pages  if  the  problems 
cannot  be  found  among  the  reasons  given  for  your  particular  OCx 
dump.  Many  of  these  techniques  pertain  to  all  OCx  completion 
codes . 
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2.5.5.21  COMPLETION  CODE  - PCI. 

ERROR  DESCRIPTION. 

• The  operation  code  detected  is  not  valid  or  has  not  been 
implemented  on  this  model  S/360  or  S/ 370 . 

PROBABLE  CAUSES. 

• A branch  to  a data  area;  fetching  of  data  as  an  operation 
code  for  this  instruction. 

• A missing  or  misspelled  DD  statement. 

• A data  set  had  not  been  opened  when  an  input/output 
instruction  was  issued  for  it. 

• A data  set  had  been  closed  when  an  input/output  instruc- 
tion was  issued  for  it  (this  may  also  cause  an  0C5  termination). 

ADDITIONAL  REFERENCE  INFORMATION. 

• Check  register  1 or  2 at  entry  to  ABEND  + hex  28 
(dec.  40) . 

• This  should  point  to  the  DDNAME  of  the  DD  statement  in 
error.  Register  2 will  be  the  best  indicator  if  the  addresses 
differ. 


• The  APSW  field  has  the  address  of  the  next  instruction 
to  be  executed  in  the  problem  program. 
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2.5.5.22  COMPLETION  CODE  - OC5. 

ERROR  DESCRIPTION. 

• An  address  is  specified  that  is  outside  of  the  available 
storage  of  the  particular  computing  system. 

PROBABLE  CAUSES. 

• Invalid  data  address. 

• Indexing  (subscripting)  outside  the  program's  assigned 
limits . 

• Uninitialized  index  (or  subscript) . This  may  also  cause 
a data  exception  (0C7). 

• An  input/output  instruction  triggered  termination 
because  OPEN  was  unable  to  complete  the  DCB. 

• A missing  or  misspelled  DD  statement. 

• An  attempt  to  CLOSE  a data  set  a second  time. 

• COBOL:  an  improper  exit  from  a procedure  being  operated 
on  by  a PERFORM  statement. 

• COBOL:  a sort  operation  is  being  attempted  with  an 
incorrect  cataloged  procedure. 

• COBOL:  an  attempt  to  reference  an  input/output  area 
before. 

• READ  or  OPEN  statement  has  been  issued  for  the  file. 

ADDITIONAL  REFERENCE  INFORMATION. 

• Register  1 at  entry  to  ABEND  contains  the  address  of 
the  DCB. 

• The  address  plus  hex  28  (dec.  40)  contains  the  DDNAME  of 
the  data  set  involved. 
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2.5.5.22  COMPLETION  CODE  - PCS.  (Cont.) 

• Register  14  points  to  the  instruction  following  the 
input/output  instruction. 


• The  APSU  field  contains  the  address  of  the  next  instruc- 
tion to  be  executed  in  the  problem  program. 
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2.5.5.23  COMPLETION  CODE  - OC7. 

ERROR  DESCRIPTION. 

• Data  in  a field  was  of  incorrect  format  for  the  instruc- 
tion attempting  to  process  it. 

PROBABLE  CAUSES. 

• A data  field  was  not  initialized,  e.g.,  blanks  were  read 
into  a field  designed  to  be  processed  with  packed  decimal 
instructions. 

• A packed  decimal  field  had  an  incorrect  sign  field. 

• Uninitialized  index  or  subscript.  This  may  also  cause  an 
addressing  (0C5)  or  protection  (0C4)  completion  code. 

• Fields  in  decimal  arithmetic  overlap  incorrectly. 

• The  decimal  multiplicand  has  too  many  high-order 
significant  digits. 

• The  index  (or  subscript)  value  was  incorrect  and  invalid 
data  was  referenced.  This  could  also  cause  an  addressing  (0C5) 
or  protection  (0C4)  completion  code. 

• ASSEMBLY  LANGUAGE:  The  sign  or  digit  codes  of  operands 
in  decimal  arithmetic,  editing  operations  or  the  CONVERT  TO 
BINARY  (CVB)  instruction  are  incorrect. 

• COBOL:  Data  was  moved  from  the  DISPLAY  field  to  the 
COMPUTATIONAL  or  COMPUTATIONAL- 3 field  at  group  level.  No 
conversion  was  performed;  invalid  data  for  COMPUTATIONAL-! 

(packed  decimal)  results. 

• COBOL:  The  figurative  constants  ZERO  or  LOW-VALUE  was 
moved  to  a group  level  numeric  field. 

• COBOL:  Omission  of  USAGE  clause  or  inclusion  of  an 
erroneous  USAGE  clause. 
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2.5.5.23  COMPLETION  CODE  - OC7.  (Cont.) 

• Incorrect  linkage  section  data  definition,  passing  param- 
eters in  the  wrong  order,  omission  or  inclusion  of  a parameter, 
failure  to  carry  over  a USAGE  clause  when  necessary,  defining  the 
length  of  a parameter  incorrectly. 

ADDITIONAL  REFERENCE  INFORMATION. 

• Registers  1 or  2 point  to  the  DCB  for  the  last 
referenced  file. 

• Register  9 may  contain  the  address  of  the  DDNAME  of 
the  last  referenced  file. 

• Register  8 and/or  register  10  may  contain  the  UCB 
address  for  the  last  referenced  file. 

• Register  4 + hex  64  (dec.  100)  may  contain  the  DSNAME 
of  the  last  referenced  file. 

• The  APSW  field  contains  the  address  of  the  next  instruc- 
tion to  be  executed  in  the  problem  program. 
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2.5.5.24  COMPLETION  CODE  - 237 


ERROR  DESCRIPTION 


• The  end-of -volume  routine  (SVC  55)  detected  an  error  at 
the  end -of -volume  or  while  positioning  the  second  or  subsequent 
volume  for  processing. 


PROBABLE  CAUSES 


• A verification  error  occurred  in  label  processing  (an 
incorrect  label  may  have  been  encountered). 


• The  tape  label  block  count  did  not  agree  with  the  DCB 
block  count  (probably  because  of  a skipped  block  due  to  hardware 
difficulties) . 


• The  data  set  name  specified  in  the  DSN  parameter  of  the 
DD  statement  was  not  the  same  as  the  data  set  name  in  header 
label  1 of  a tape  volume. 


• An  incorrect  volume  was  mounted 


• The  volume  serial  number  was  specified  incorrectly  in 
the  SER  subparameter  of  the  DD  statement. 


ADDITIONAL  REFERENCE  INFORMATION 


• Before  proceeding,  refer  to  Messages  and  Code  message 
number  IEC  0231. 


• For  "incorrect  volume"  serial  number 
contains  the  address  of  the  DCB. 


• Address  of  DCB  + hex  28  (dec 
2-byte  field  giving  the  TIOT  offset. 


• The  TIOT  address  + TIOT  offset  is  the  address  of  the 
DDNAME  entry  in  the  TIOT. 


• The  DDNAME  entry  + 4:  8-byte  DDNAME  in  the  TIOT 
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2.5.5.24  COMPLETION  CODE  - 237.  (Cont.) 

• Register  9 may  contain  the  8-byte  DDNAME  address. 

• Register  8 may  contain  the  UCB  address. 

• Address  of  the  UCB  + hex  1C  (dec.  28):  volume  serial 
number  of  the  volume  presently  mounted. 

• Register  4 contains  the  address  of  the  label  in  storage. 

• Register  4 + hex  64  (dec.  100):  DSN  in  storage. 

• (SOURCE:  DD  statement  VOL“SER**parameter) . Up  to  the 
first  five  volume  serial  numbers  are  adjacently  arranged  here. 

• Register  5 points  to  the  DEB. 

FOR  BLOCK  COUNT  DISCREPANCY. 

• Register  2 contains  the  address  of  the  DCB. 

• Address  of  the  DCB  + hex  28  (dec.  40):  The  address  of 
a 2-byte  field  giving  the  TIOT  offset. 

• The  TIOT  address  + the  TIOT  offset  is  the  address  of 
the  DDNAME  entry  in  the  TIOT. 

• The  DDNAME  entry  + 4:  8-byte  DDNAME  in  the  TIOT. 

• Register  9 may  contain  the  8-byte  DDNAME  address. 

• The  address  of  the  DDNAME  + hex  10  (dec.  16):  UCB 
address  (one  word). 

• Register  10  may  contain  the  UCB  address. 

• Address  of  the  UCB  + hex  1C  (dec.  28):  volume  serial 
number  of  the  volume  presently  mounted. 

• Register  4 contains  the  address  of  the  label  in  storage. 

• Register  4 + hex  64  (dec.  100):  DSN  in  storage  (SOURCE: 
DD  statement  or  catalog). 
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2.5.5.24  COMPLETION  CODE  - 237.  (Cont.) 


• Register  4 + hex  DA  (dec.  218):  volume  serial  number 
(SOURCE:  DD  statement  or  VOL-SER-parameter) . 


Up  to  the  first  five  volume  serial  numbers  are  arranged 


• Register  5 points  to  the  DEB 


block  count 


field  of  the  DCB 


• If  register  4 + hex  36  (dec.  54):  block  count  in  label 
(decimal  notation). 


Register  12  contains  the  block  count  also  (hexadecimal 


notation) 
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2.5.5.25  COMPLETION  CODE  - 637. 

ERROR  DESCRIPTION. 

• An  incorrectable  I/O  error  occurred  during  end-of-volume 
processing  on  a tape  just  read  or  a new  volume  just  mounted. 

• Concatenated  data  sets  have  unlike  attributes. 

PROBABLE  CAUSES. 

• An  I/O  error  was  encountered  in  writing  a tape  mark. 

• An  I/O  error  was  encountered  in  positioning  the  tape. 

• An  I/O  error  was  encountered  in  reading  a label. 

• An  I/O  error  was  encountered  in  sensing  for  a file 

protection  ring. 

ADDITIONAL  REFERENCE  INFORMATION. 

• Before  proceeding,  refer  to  Messages  and  Codes  message 
number  IEC  0261. 

• I/O  errors  frequently  indicate  a hardware  malfunction, 

• If  data  sets  with  unlike  attributes  (e.g.,  blocksize)  are 
being  concatenated,  the  DCBOFLGS  in  the  DCB  must  be  set  to 
indicate  a concatenation  of  unlike  attributes. 

• Register  2 contains  the  address  of  the  DCB  being  OPEN'ed. 

• Address  of  the  DCB  + hex  28  (dec.  40):  the  address  of 
the  2-byte  field  containing  the  TIOT  offset. 

• Register  9 may  contain  the  address  of  the  DDNAME  field 
in  the  TIOT. 

• TIOT  address  + TIOT  offset:  address  of  the  DDNAME  entry 
in  the  TIOT. 

• The  DDNAME  entry  + 4:  8-byte  DDNAME  in  the  TIOT. 
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2.5.5.25  COMPLETION  CODS  - 637.  (Cont.) 

• Register  4 points  to  the  label  read  into  storage. 

• Register  4 + hex  64  (dec.  100)  contain  the  DSNAME 
(SOURCE:  DD  statement). 

• Register  4 + hex  110  (dec.  272):  IOB  prefix  for  OPEN. 

• Address  of  IOB  + 8 (for  BSAM,  QSAM,  BPAM) : IOB  standard 
fields . 

• The  first  byte  of  the  IOB  contains  the  IOBFLAGl  byte: 

If  bit  5 is  on,  a permanent  error  has  been  encountered. 

• The  IOB  + 2 contains  the  first  and  second  sense  bytes. 

• The  IOB  + 4 contains  the  ECB  completion  code. 

• The  IOB  + hex  C (dec.  12)  contains  the  two  status  bytes 
of  the  channel  status  word  (CSW) . 

• The  IOB  + hex  11  (dec.  17)  contains  the  starting  address 
of  the  channel  program. 

• Register  10  contains  the  address  of  the  UCB. 
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2.5.5.26  COMPLETION  CODE  - 804. 

ERROR  DESCRIPTION. 

• More  storage  was  requested  than  was  currently  available 
in  the  region. 

PROBABLE  CAUSES. 

• The  REGION  parameter  in  JOB  or  EXEC  statement  does  not 
specify  enough  storage  for  the  processing  program.  (If  a REGION 
is  specified  on  the  JOB  card,  REGION  parameters  on  EXEC  cards 
are  ignored.) 

• If  a REGION  parameter  was  not  included,  the  default 
region  size  for  the  installation  was  too  small. 

• Blocking  factors  were  increased  without  correspondingly 
increasing  the  REGION  size  request  to  accommodate  the  larger 
physical  blocks. 

• A cataloged  procedure  step  requested  more  storage  than 
was  available. 

ADDITIONAL  REFERENCE  INFORMATION. 

• Be  sure  the  SIZE  parameter,  sometimes  used  to  pass 
storage  size  information  to  the  processing  program  (s",'.h  as 
compilers,  sort/merge,  etc.)  be  compatible  with  the  storage 
provided  in  the  region. 

• ASSEMBLY  LANGUAGE:  In  a dynamic  programing  environment, 
be  certain  that  FREEMAIN  requests  are  regularly  issued  before 
GETMAIN  requests. 

• Check  to  be  certain  that  a REGION  parameter  wasn't 
incorrectly  overridden. 

• Completion  code  80A  is  closely  related  to  this  completion 

code. 
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2.5.5.27  COMPLETION  CODE  - 806. 

ERROR  DESCRIPTION. 

• A requested  program  module  could  not  be  found. 

PROBABLE  CAUSES. 

• A JOBLIB  or  STEPLIB  DD  statement  was  missing  (a  common 
error) . 

• The  module  name  was  misspelled. 

• The  library  data  set  had  been  deleted  from  the  device. 

• An  unrecoverable  Input/output  error  occurred  while 
searching  the  directory  in  order  to  retrieve  the  program. 

ADDITIONAL  REFERENCE  INFORMATION. 

• Register  15  contains  00000004  if  the  requested  module 
could  not  be  found  in  the  private  library,  job  library  or  link 
library  (SYS1 .LINKLIB) . 

• Register  15  contains  00000008  if  an  uncorrectable  I/O 
occurred  in  searching  the  library  directory. 

• Register  12+4  bytes  is  the  location  of  the  8-byte  name 
of  the  requested  program  that  could  not  be  loaded. 
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2.5.5.28  COMPLETION  CODE  - 813. 

ERROR  DESCRIPTION. 

• The  error  occurred  during  OPEN  processing  because  the 
data  set  name  on  a magnetic  tape  volume  did  not  match  the  DSNAME 
specified  for  it  through  job  control  language. 

PROBABLE  CAUSES. 

• The  volume  serial  number  specified  through  Job  control 
language  or  through  the  catalog  was  incorrect. 

• The  DSNAME  parameter  is  misspelled. 

• The  wrong  volume  is  mounted. 

ADDITIONAL  REFERENCE  INFORMATION. 

• Before  proceeding,  refer  to  Messages  and  Codes  message 
number  IEC  1491. 

• Register  2 contains  the  address  of  the  DCB. 

• The  DCB  address  + hex  28  (dec.  40):  the  address  of  a 
2-byte  field  containing  the  TIOT  offset. 

• The  address  in  the  TCBTIO  field  (word  4 of  the  TCB)  + 
the  TIOT  offset:  address  of  DDNAME  entry  in  TIOT. 

• The  TIOT  address  may  be  contained  in  register  9. 

• Register  14  may  contain  the  address  of  the  DDNAME  entry 
in  the  TIOT. 

• The  DDNAME  entry  + 4 is  the  start  of  the  8-byte  DDNAME 
field  in  the  TIOT. 

• Register  4 has  the  address  of  the  label  in  storage. 

• Register  4 + 4 is  the  low-order  17  bytes  of  the  tape 
label  as  represented  on  the  tape  label  (this  follows  the  HDRI 
identification) . 
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• Register  4+64  contains  the  DSNAME  in  storage  (SOURCE: 
DD  statement). 

• Register  11  may  contain  this  DSNAME  address. 

• Register  4 + hex  110  (dec.  272):  IOB  prefix  for  OPEN. 

• IOB  address  + 8 contains  the  IOB  standard  fields  (BSAM, 
QSAM,  BPAM) . 

■ The  first  byte  of  the  IOB  contains  the  IOBFLAG1  byte. 

If  bit  5 is  on,  a permanent  error  is  indicated. 

• The  IOB  + 2 contains  the  first  and  second  sense  bytes. 

• The  IOB  + 4 contains  the  ECB  completion  code  (if  the 
high  order  bit  is  not  on,  an  error  condition  occurred) . 

• The  IOB  + hex  C (dec.  12)  contains  the  two  bytes  of  CSW 
status  flag  information. 

• The  IOB  + hex  11  (dec.  27)  contains  a pointer  to  the 
start  of  the  channel  program. 


• Register  10  may  contain  the  UCB  address. 
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2.5.5.29  COMPLETION  CODE  - D37. 

ERROR  DESCRIPTION. 

• Space  allocated  for  a data  set  on  a direct  access  device 
was  exceeded.  No  secondary  allocation  was  specified.  The  error 
was  detected  by  end -of -volume  processing. 

PROBABLE  CAUSES. 

• The  SPACE  parameter  did  not  request  any  secondary  storage 
area  for  the  data  set. 

• A related  completion  code,  B37,  is  encountered  if 
secondary  space  was  specified  and  all  primary  and  secondary 
extents  were  exceeded. 

ADDITIONAL  REFERENCE  INFORMATION. 

• Before  proceeding,  refer  to  Messages  and  Codes  message 
IEC  0311  for  D37  or  IEC  0301  for  B37. 

• The  DEB  indicates  the  physical  location  and  size  of  the 
single  extent  created  for  this  data  set. 

• Register  2 contains  the  address  of  the  DCB. 

• DCB  address  + hex  28  (dec.  40):  address  of  the  2-byte 
TIOT  offset  field  in  the  DCB. 

• TIOT  address  (from  4th  word  in  TCB)  + the  TIOT  offset 
is  the  address  of  the  DDNAME  field  in  the  TIOT. 

• Register  9 may  also  contain  the  DDNAME  field  address. 

• DDNAME  field  in  TIOT  + 4 gives  the  starting  address  of 
the  8-byte  DDNAME  stored  in  the  TIOT. 

• Register  4 + hex  64  (dec.  100):  DSNAME  (SOURCE:  DD 
statement) . 

• Register  10  contains  the  address  of  the  UCB. 
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2.5.5.30  COMPLETION  CODE  - E37. 

ERROR  DESCRIPTION. 

• The  usual  error  is  that  space  is  exceeded  when  writing  a 
partitioned  data  set  on  a direct  access  device.  The  error  is 
detected  by  end-of -volume  processing  routines. 

PROBABLE  CAUSES. 

• Sixteen  extents  had  been  written  for  a partitioned  data 
set  on  a direct  access  device,  but  additional  space  was  needed. 

• For  a partitioned  data  set  creating  extents  beyond  the 
first,  additional  space  was  needed,  but  no  more  space  was  avail- 
able on  the  volume  (a  partitioned  data  set  cannot  be  continued  on 
a second  volume) . 

• For  tape  or  direct  access,  not  enough  volumes  were 
specified  but  more  space  was  needed. 

ADDITIONAL  REFERENCE  INFORMATION. 

• Before  proceeding,  refer  to  Messages  and  Codes  message 
IEC  0321. 

• The  DEB  contains  the  physical  starting  and  ending 


• The  DCB  address  + hex  28  (dec.  40)  contains  the  2-byte 
TIOT  offset  field. 


• The  TIOT  address  (from  word  4 of  the  TCB)  + the  TIOT 
offset  references  the  DDNAME  entry  in  the  TIOT. 


• Register  9 may  contain  the  DDNAME  field  address 


• DDNAME  field  in  the  TIOT  + 4:  8-byte  DDNAME  entry  in 


the  TIOT 
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Register  4 contains  the  address  of  the  volume  serial 


• Register  4 + hex  64  (dec.  100):  DSNAME  (SOURCE:  DD 


• Register  4 + hex  DA  (dec.  218):  address  of  volume 
serial  number  (SOURCE:  DD  statement  or  system  catalog). 


• Register  12  may  contain  the  address  of  the  volume 
serial  number  In  storage. 
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2.5.5.31  Control  Block  Pointers 


• This  paragraph  summarizes  the  contents  of  the  control 
blocks  that  are  most  useful  in  debugging.  Control  blocks  are 
presented  in  alphabetical  order,  with  displacements  in  decimal 
followed  by  the  hexadecimal  counterpart  in  parentheses. 


CVT  - Communications  Vector  Table 


Data  Control  Block 


+40(28) 

ddname  (before  open);  offset  to 

ddname  in  TIOT  (after  open) 

+45(2D) 

DEB  address 

+69(45) 

IOB  address 

+0 

Address  of  TCB  control  words 

+53(35) 

Address  of  entry  point  of  ABTERM 

+193(C1) 

Address  of  secondary  CVT  (used 

only  with  Model  65 

Multiprocessing  systems  and  TSO) 
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DEB  - Data  Extent  Block 


Address  of  next  DEB 


+25(19) 


+33(21) 


+38(26) 


Address  of  start  of  extent 


+42 (2A) 


ECB  - Event  Control  Block 


RB  address  or  completion  code 


>B  - Input/Output  Block 


-7 

Address  of  next  IOB  (BSAM,  QSAM, 
and  BP AM) 

+2 

Sense  bytes  i 

+5 

ECB  address 

+9 

CSW 

+17(11) 

CCW  list  address 

+21(15) 

DCB  address 

2.5.5.31  Control  Block  Pointers 


Request  Block  (PCP  and  MFT' 


Request  Block  (MVTi 


Task  Input/Output  Table 


+8  Step  name 

+24(18)  DD  entries  begin  (one  variable 

length  entry  for  each  DD 

Statement) 


Length  of  DD  entry 


-8 

Address  of  previous  RB  on  load 
list 

-4 

Address  of  next  RB  on  load  list 

Module  name 

+13(D) 

Entry  point  address 

+16(10) 

Resume  PSW 

+29(1D) 

Address  of  previous  RB 

+4 

Last  half  of  user's 

PSW 

+13(D) 

CDE  address 

+16(10) 

Resume  PSW 

+29 (ID) 

Address  of  previous 

RB 
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Task  Control  Block  (PCP  and  MFT) 


+4 

ddname 

+16(10) 

Device  entries  begin  (one  4-byte 
entry  for  each  device) 

+20(14) 

Next  device  entry  (if  there  is 

• 

one)  ; 

(Next  DD  entry  begins  at  24(18) 
plus  length  of  first  DD  entry) 

+1 

Address  of  most  recent  RB 

+9 

Address  of  most  recent  DEB 

+13(D) 

TIOT  address 

+16(10) 

Completion  code 

+25(19) 

MSS  boundary  box  address 

+37(25) 

Address  of  most  recent  RB  on  load 
list 

+113(71) 

Address  of  first  save  area 

+161(A1) 

Address  of  STAE  control  block 

+181 (B5) 

Address  of  the  job  step  control 
block 

■ 


■■ 
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TCB  - Task  Control  Block 


(MFT)  With  Subtaskin; 


Task  Control  Block  (MVT) 


+4 5 (2D) 

Address  of  TCB  for  job  step  task 

+129(81) 

Address  of  TCB  for  next  subtask 
attached  by  same  parent  task 

+133(85) 

Address  of  TCB  for  parent  task 

+137(89) 

Address  of  TCB  for  most  recent 
subtask 

+141(91) 

Address  of  ECB  to  be  posted  at 
task  completion 

+181(B5) 

Address  of  the  job  step  control  block 

+1 

Address  of  most 

recent  RB 

+9 

Address  of  most 

recent  DEB 

+13(D) 

TIOT  address 

+16(10) 

Completion  code 
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+25(19) 

Address  of  most  recent  SPQE 

+33(21) 

Bit  7 Non-dispatchability  bit 

+37(25) 

Address  of  most  recent  LLE 

+113(71) 

Address  of  first  save  area 

+125(7D) 

Address  of  TCB  for  job  step  task 

+129(81) 

Address  of  TCB  for  next  subtask 
attached  by  same  parent  task 

+133(85) 

Address  of  TCB  for  parent  task 

+137(89) 

Address  of  TCB  for  most  recent 
subtask 

+145(91) 

Address  of  ECB  to  be  posted  at 
task  completion 

+153(99) 

Address  of  dummy  PQE  minus  8 
bytes 

+161(A1) 

Address  of  STAE  control  block 

+181(B5) 

Address  of  the  job  step  control 
block 

Unit  Control  Block. 


-4 

CPU  ID  (used  only  with  Model  65 

Multiprocessing  systems) 

+2 

FF  (UCB  identification) 

IhM| 
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+4 

Device  address 

+13(D) 

Unit  name 

+18(12) 

Device  class 

+19(13) 

Device  type 

+22(16) 

Sense  bytes  (except  devices  with 
extended  sense  byte  information) 

+24(18) 

Number  of  sense  bytes  (devices 
with  extended  sense  byte  information) 

+25(19) 

Address  of  sense  bytes  (devices 
with  extended  sense  byte  information) 

+40(28) 

Number  of  outstanding  RESERVE 
requests  (shared  DASD  only) 
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2.5.5.32  OS/MVT  Core  Dump. 

• This  paragraph  describes  the  format  of  an  OS/MVT  core 
dump.  It  is  suggested  that  the  dump  be  kept  close  at  hand  during 
the  review  of  this  analysis.  See  FIGURE  2-49  (page  2-463)  for 
explanation. 

• The  dump  will  be  reviewed  by  going  through  certain 
portions  of  the  dump  and  discussing  the  information  provided. 

• The  first  line  of  the  dump  (Circle  A)  displays  the  job 
name,  step  name,  time  of  day  (hhmmss  where  hh  ■ hours,  mm  *= 
minutes,  ss  ■ seconds),  date  (yyddd  where  yy  ■ last  two  digits  of 
year,  ddd  ■ day  number  of  year),  and  page  number.  An  ID  field, 
not  shown  here,  may  be  present  if  sub tasks  are  used. 

• The  second  line  (Circle  B)  displays  the  completion  code  in 
hexadecimal  notation,  and  indicates  whether  the  SYSTEM  (control 
program)  or  the  USER  (problem  program)  caused  the  termination. 

• Line  three  (Circle  C)  displays  the  Program  Status  Word 
(PSW)  AT  ENTRY  TO  ABEND  field,  a field  that  is  generally  of  little 
use  in  MVT  dumps.  The  reason  is  that  ABTERM  enters  an  SVC  13 
instruction  in  this  PSW  to  branch  to  the  ABEND  routine  (SVC  13) 
upon  completion  of  its  processing.  For  program  checks,  i.e., 
errors  caused  under  control  of  the  Program  Request  Block  (PRB) , 
the  right  half  of  the  PSW  prior  to  entry  to  ABTERM  is  retained  in 
the  Active  Program  Status  Word  (APSW)  field  of  the  PRB.  This 
area  would,  in  that  case,  contain  the  address  of  the  instruction 
to  be  executed  following  the  program  check. 

• The  Task  Control  Block  (TCB)  (Circle  D)  is  shown  for  this 
active  task;  the  register  contents  contained  in  the  TCB  are  not 
shown  for  active  tasks. 

• The  Request  Block  Pointer  (RBP)  field  (Circle  E)  contains 
the  address  of  the  request  block  (RB)  most  recently  added  to  the 
active  RB  queue. 

• The  DEB  field  (Circle  F)  points  to  the  first  data  extent 
block  for  this  task.  This  pointer  is  to  the  first  byte  of  the 
DEB  proper,  following  the  prefix  bytes.  The  first  word  of  the 
DEB  points  back  to  the  TCB  address,  the  second  word  (Circle  G) 
references  the  next  DEB.  Zeroes  are  shown  in  the  address  portion 
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for  the  last  DEB.  The  seventh  word  of  the  DEB  (Circle  H)  proper 
points  to  the  data  control  block  (DCB)  associated  with  this  DEB. 

• The  TCB  field  points  to  the  next  lower  priority  task  in 
the  system.  All  TCB's  are  chained  together  on  a main  TCB  queue 
which  is  used  by  the  dispatcher  to  pass  control  to  the  highest 
dispatching  priority  TCB  that  can  currently  use  the  CPU  resource. 

• A field  of  zeros  indicates  that  this  task  is  currently  the 
lowest  priority  TCB  on  this  queue  (MVT  can  dynamically  create 

and  delete  TCB's,  and  the  facility  exists  to  alter  dispatching 
priorities  of  TCB's,  altering  their  effective  positions  on  this 
main  TCB  queue) . 

• In  the  PRB,  the  first  word  is  reserved  (RESV) . The  second 
word,  labeled  APSW  (Circle  I),  contains  the  right  half  of  the 
user's  PSW  if  the  program  interrupt  occurred  in  the  code  repre- 
sented by  this  RB  (this  did  not  occur  in  this  example) . This 
field  would  then  contain  the  same  information  (i.e.,  the  next 
instruction  to  be  executed)  that  could  be  obtained  from  the  PSW  AT 
ENTRY  TO  ABEND  field  of  other  options  of  OS.  Under  MVT,  this 
information  is  in  the  APSW  field;  the  PSW  AT  ENTRY  TO  ABEND  field 
is  altered  by  ABTERM  and  is  very  rarely  of  help  in  debugging. 

• The  next  field,  FL-CDE  (Circle  J)  contains  a byte  of  flags 
pertaining  to  the  way  the  module  was  obtained  and  the  address  of 
the  contents  directory  element  for  the  code  controlled  by  this  RB. 

• The  Wait-Link  (WT-LNK.)  field  (Circle  K)  indicates  the  num- 
ber of  requests  waiting  (the  wait  count)  in  the  first  byte;  the 
LNK  field  points  to  the  previous  RB  on  the  RB  queue,  or  to  the  TCB 
if  the  RB  containing  the  reference  is  the  oldest  RB. 

• The  SVRB  formac  and  some  of  its  labeled  fields  differ  from 
the  fields  of  the  PRB. 

• The  APSW  usually  contains  an  identification  of  the  SVC 
number  in  the  high  or  low  order  two  bytes,  depending  on  the  SVC 
itself  (this  is  actually  the  last  first  characters  of  the  module 
name  of  the  requested  routine).  For  example,  F5F5FIC4  (Circle  L) 
represents  SVC  55  or  end -of -volume.  F1F0F5C1  (Circle  M)  repre- 
sents SVC  51  or  ABDUMP.  The  PSW  field  of  the  preceding  RB  contains 
the  hexadecimal  representation  of  the  SVC  number  in  its  fourth 
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byte.  Thus,  in  this  dump,  SVC  51  (Circle  M)  is  shown  as  X'33'  in 
the  SVRB;  SVC  13  is  shown  as  X'OD'.  Therefore,  the  PSW  field 
provides  a way  to  double  check  the  SVC  identification  field  shown 
in  the  APSW  for  SVRB's.  The  SVC  13  block  will  always  contain 
the  register  contents,  when  available,  for  the  user  program. 

• In  the  CDE  section  of  the  dump  (Circle  N) , each  contents 
directory  element  is  listed  separately. 

• The  EPA  field  (Circle  0)  defines  the  entry  point  address 
associated  with  the  name  in  the  NM  field.  For  most  ABEND  condi- 
tions this  is  the  address  taken  to  compute  the  relative  address, 
i.e.,  EPA  address  minus  the  APSW  address  will  provide  the 
relative  address  of  Next  Sequential  Instruction  (NS1) . 

• The  XL/MJ  field  (Circle  P) , contains  the  starting  address 
of  the  extent  list  (XL)  for  a major  CDE,  or  the  starting  address 
of  the  major  CDE  if  the  module  is  a minor  CDE  (minor  CDEs  are 
created  by  alias  entries  or  by  the  IDENTIFY  macro  which  creates 
an  additional  entry  point  for  a load  module  already  in  storage). 

• Every  major  CDE  contains  an  entry  in  the  extent  list 
which  is  identified  by  XL  and  begins  immediately  following  the 
CDE's.  (All  CDE's  were  major  CDE's  on  this  dump.)  The  fields 
in  the  XL  are: 

SZ  indicates  the  length  of  this  entry  in  hexadecimal  bytes. 


NO  shows  the  number  of  scattered  control  sections  for  the 
load  module  described  by  this  entry  (this  is  almost  always  1, 
indicating  block  loading). 

LN  gives  the  length  of  the  control  section(s)  of  the  load 
module  defined  by  this  entry.  The  high  order  bit  is  on  if  this 
is  the  last  entry  in  the  list. 

ADR  gives  the  starting  address  of  the  control  sectlon(s) 
defined  by  this  XL  entry. 

Space  for  three  LN-ADR  entries  exist  on  each  line. 

• Data  extent  blocks  follow  (Circle  0):  A DEB  exists  for 
every  data  set  open  at  the  time  of  the  dump.  It  generally 
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contains  information  not  available  until  the  data  set  is  opened. 
Each  DEB  is  associated  with  a data  control  block  (DCB)  created  as 
a part  of  the  problem  program.  The  DEB  fields  are  not  labeled  as 
were  the  preceding  control  blocks  of  the  dump;  instead  the  entire 
DEB  is  presented  unformatted.  Specific  fields  useful  in  debugg- 
ing will  be  Identified  below. 

• The  first  word  of  the  DEB  points  to  the  TCB  address.  The 
second  word  of  the  DEB  addresses  the  next  DEB  on  the  chain  for 
this  task  (the  last  DEB  contains  zeros).  The  ninth  byte  of  the 
DEB  contains  a number  of  data  set  status  flags  of  Interest:  01 
indicates  that  data  set  status  (disposition)  is  OLD;  10,  status 
is  MOD;  11,  status  is  NEW.  Three  additional  bytes  follow  which 
contain  other  flags. 

• Offset  28  (1C  hex),  (Circle  R)  of  the  DEB  contains  a one 
byte  field  indicating  the  type  of  device  dependent  information 
beginning  at  offset  32  (20  hex).  A 04  indicates  direct  access 
information,  02  is  for  non-direct  access  devices  and  communica- 
tions devices.  Unit  record,  magnetic  tape,  telecommunications 
and  graphics  devices  are  indicated  with  a 02.  Indexed  sequential 
and  direct  access  sections  are  indicated  with  04.  The  direct 
access  section,  applicable  to  this  dump,  defines  the  physical 
location  of  the  data  set  on  the  direct  access  devices.  Each 
extent  entry  contains  16  bytes  and  appears  as  shown  below 
(Circle  S) . The  first  extent  entry  begins  at  offset  32  (hex  20) 
of  the  DEB. 

Direct  access  extent  description  segment: 


File 

Mask 

UCB 

Addr 

BIN 

Num 

(2321) 

Cyl 

Start 

Addr 

Track 

Start 

Addr 

Cyl 

End 

Addr 

Track 

End 

Addr 

No.  of 
Tracks  in 
Extent 

Offset:  0 

1 

4 

6 

8 

10 

12 

14 

16  bytes 

• The  DCB 

for  the 

data 

set  is 

contained 

within  the 

problem 

program  and  is  referenced  by  the  seventh  word  of  the  DEB.  It  is 
modified  by  OPEN  and  with  the  DEB  and  unit  control  block  (UCB) 
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serves  as  a repository  of  data  management  Information  pertinent 
to  data  sets  used  by  the  task.  Although  the  DCB  varies  substan- 
tially based  on  the  type  of  access  method  used,  it  generally  con- 
sists of  three  segments:  a device  interface  segment,  a process- 
ing program  interface  segment  (sometimes  called  the  foundation 
segment)  and  an  access  method  interface  segment.  The  foundation 
segment  is  important  in  debugging  — it  begins  at  offset  40 
(28  hex),  i.e.,  DCB  address  plus  hex  28. 

• Before  OPEN,  the  foundation  segment  contains  the  DDNAME 
of  the  JCL  statement  defining  the  data  set.  This  field  is 
restored  after  the  data  set  has  been  processed  and  CLOSE  has  been 
correctly  completed. 

• While  the  data  set  is  being  processed,  the  first  two  bytes 
of  the  foundation  segment  field  at  offset  40  (28  hex)  contains  the 
Task  Input/Output  Table  (TIOT)  offset  for  the  device  entry  of 
this  data  set  (Circle  T).  The  TIOT  ties  the  job  control  DCB 
information  to  the  unit  control  block  (UCB)  for  this  data  set. 

• If  a complete  (SYSABEND)  dump  is  not  available  the  DDNAME 
can  still  be  found  from  the  formatted  TIOT  in  the  dump.  Find 
the  TIOT  offset  from  the  DEB-DCB  chain  as  described  above.  Sub- 
tract 4 from  this  figure  in  hex  and  then  match  this  to  the  length 
identity  of  the  entries  in  the  formatted  TIOT.  The  first  is  14; 
others  progress  in  increments  of  hex  14,  i.e., 


Hex  Identity 

First  entry 

14 

Second  entry 

28 

j Third  entry 

3C 

Fourth  entry 

50 

Fifth  entry 

64 

Sixth  entry 

78 

Seventh  entry 

8C 

Eighth  entry 

AO  (etc.) 

The  DDNAME  is  the  second  word  of  the  entry  found  through 
this  process. 
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FIGURE  2-49 
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FIGURE  2-49  (Cont.) 
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2.5.5.33  OS  Data  Exceptions,  Recognition  and  Error  Recovery. 

• This  section  is  intended  to  assist  the  user  in  recognizing 
and  correcting  data  exceptions  which  may  occur  in  the  program.  It 
will  show  the  user  how  to  use  an  OS  core  dump  to  find  the  error  in 
question  and  how  to  find  the  exact  place  in  the  program  where  the 
error  occurred. 

• The  typical  data  exception  results  from  the  type  of 
instruction  that  uses  fields  which  are  either  defined  or  converted 
to  the  usage  C0MPUTATI0NAL-3.  The  restrictions  on  such  fields  are 
as  follows:  The  field  must  contain  a numeric  sign  which  is  pre- 
ceded by  1 to  31  decimal  digits  (0  to  9 inclusive).  This  is  true 
for  both  fields  being  used.  The  total  length  of  a Storage  to 
Storage  (SS)  instruction  is  six  bytes  and  is  broken  down  as 
follows:  First  byte  operation  code  defining  the  instruction  and 
one  byte  containing  the  hex  value  of  the  length  of  both  fields 
minus  one.  The  hex  number  on  the  left  pertains  to  the  length  of 
the  receiving  field.  The  hex  number  on  the  right  pertains  to  the 
length  of  the  sending  field.  The  next  two  bytes  are  the  general 
register  and  displacement  used  to  locate  the  receiving  operand. 

The  first  hex  digit  indicates  the  base  register.  The  three 
following  hex  digits  represent  the  displacement.  The  last  two 
bytes  represent  the  sending  field  which  is  formatted  the  same  as 
the  receiving  field,  having  a base  register  and  a displacement. 

• The  fields  are  located  in  the  core  dump  by  taking  the 
value  that  is  found  in  the  base  register  indicated  and  adding  the 
displacement  to  that  value  .a  hex.  The  hex  digit  in  the  second 
byte  as  explained  will  give  you  the  length  of  each  field  less  1 
in  bytes.  Once  the  fields  are  found  in  the  dump  they  should  be 
examined  for  decimal  digits  and  a sign  of  ’C',  'D1,  or  'F'  in 
low  order  position. 

• A data  exception  occurs  when  the  sign  is  other  than 
mentioned,  or  when  a non-decimal  digit  appears  in  the  field.  As 
mentioned,  by  using  the  length  you  can  determine  where  the  digits 
and  the  sign  should  be.  Both  fields  should  be  checked  for  errors. 
Once  the  field  is  found  and  determined  to  be  either  a sending  or 
receiving  field,  the  user  should  then  locate  the  instruction  that 
caused  the  exception  in  his  compiled  listing. 

• To  locate  the  offending  instruction,  subtract  the  program 
loading  point  (EPA) , from  the  address  of  the  error  (APSW) , which 
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(Cont.) 

can  be  found  on  the  first  page  of  the  dump.  Once  found,  and 
reference  ia  made  to  the  PMAP,  or  CLIST,  the  line-position  number 
will  give  you  the  exact  COBOL  verb  used  to  generate  the  instruc- 
tions. At  this  point,  with  this  information,  the  Data  Division 
must  be  checked  for  an  invalid  picture  or  value,  if  any.  If 
there  is  a value,  the  data  name  must  be  located  everywhere  in  the 
program  that  it  is  used  as  a receiving  field.  Evaluate  what  is 
being  put  into  the  field.  If  the  data  name  is  a group  item,  the 
sub-fields  must  be  evaluated.  In  this  case  usually  there  are  a 
number  of  signs  in  the  core  dump.  Check  all  subroutines  which 
are  called  using  that  data  name. 

• The  following  data  is  incorrect  for  packed  fields  of  4 
bytes: 


000 372F1 

00000004 

0009207b 


i 


: 

i 

i 


i 

! 

I 


; 

r 


r, 

% #• 


• The  following  data  is  correct  for  packed  fields  of  4 
bytes: 


01723001D 

72208300C 

000000 12F 
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Incorrect  data  can  occur  if  a packed  field  is  coded  as 


follows 


77  Field  picture  is  S9(4)  usage  is  C0MPUTATI0NAL-3 


• Any  field  without  a value  clause  contains  the  current 
value  already  in  the  machine.  This  data  may  be  correct  and  it 
may  not  be  correct.  The  use  of  the  COBOL  verbs  ON  EXHIBIT  and 
READY  TRACE  also  are  appropriate  when  trying  to  find  program 
errors . 
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2.5.5.34  Register  and  Save  Area. 

• Review  the  register  and  save  area  conventions  of  the 
Operating  System.  Because  of  the  large  number  of  jobs  run  con- 
currently under  OS,  each  program  must  take  the  precaution  of 
saving  the  contents  of  the  sixteen  general  registers  for  the  pro- 
gram that  called  it.  Then,  by  restoring  those  register  contents 
before  returning  control,  the  program  insures  that  the  program 
that  called  it  can  continue  to  run  successfully.  Basic  termi- 
nology for  the  dynamic  linking  of  programs  is: 

The  CALLING  program  is  the  program  that  calls  a 
subprogram. 

The  CALLED  program  is  the  subprogram  that  is  brought  in 
by  the  calling  program. 

• In  reality,  the  program  is  always  a called  program,  since 
it  is  called  in  by  the  Operating  System. 

• If  we  then  call  in  a subprogram,  the  main  program  is  both 
a called  and  a calling  program.  It  was  called  by  the  Operating 
System  and  it  is  calling  by  bringing  in  a subprogram. 

• Therefore,  each  called  program  must,  immediately  upon 
gaining  control,  save  the  register  contents  of  the  calling  pro- 
gram in  the  calling  program's  save  area  and  restore  the  registers 
before  turning  control  to  the  calling  program. 

• To  do  this,  each  program  provides  an  eighteen  word  save 
area  in  which  the  registers  will  be  saved  by  the  called  program. 
This  is  done  automatically  by  the  high  level  languages,  but  must 
be  done  by  the  programer  in  assembly  language.  Remember  that  the 
save  area  is  provided  by  the  calling  program,  but  the  registers 
are  saved  (stored  in  that  save  area)  by  the  called  program. 

a The  format  of  the  save  area  is  as  shown  in  the  following 
diagram: 
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Word 

1 

Used  by  PL/1 

2 

Higher  save  area  address  (register  13) 

3 

Lower  save  area  address 

4 

Register  14  (return  address) 

5 

Register  15  (entry  point  address) 

6-18 

Registers  0-12 

• Near  the  end  of  the  formatted  portion  of  an  ABEND  dump, 
is  a section  called  the  SAVE  AREA  TRACE.  This  portion  of  the 
dump  traces  the  save  areas  used,  first  in  forward  sequence  from 
the  main  program  through  the  last  subprogram  called,  then  in 
backward  sequence. 
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2.5.5.35  0C7  (Data  Check)  Debugging  Exercise. 

• The  purpose  of  this  section  is  to  examine  in  detail  an 
actual  0C7  data  check  and  analyze  the  conditions  involved,  both 
user  created  and  system  generated,  which  resulted  with  an  ABEND 
and  DUMP  of  a program  written  under  OS. 

• Before  starting  this  debugging  exercise,  review  EXHIBITS  I 
through  EXHIBITS  VI  on  the  following  pages  which  you  will  be 
requested  to  reference  in  detail. 

• EXHIBIT  I (page  2-476)  is  a program  listing  of  the 
Working-Storage  Section  and  the  Procedure  Division  of  a COBOL  pro- 
gram which,  you  as  a programer,  should  be  quite  familiar  with. 

• EXHIBIT  II  (page  2-477)  is  the  Procedure  Division  Map 
(PMAP)  which  reflects: 

The  line  number  in  the  Procedure  Division  in  which  to 
reference  an  instruction. 

The  COBOL  statement  verb  which  begins  the  sentence  being 
referenced . 

The  relative  address  within  the  user  program  where  the 
object  code  is  located. 

The  object  code  (machine  language)  representing  the  source 
statement  as  interpreted  and  coded  by  the  COBOL  compiler. 

The  assembler  language  coding  representing  the  object  code 
on  the  same  line. 

The  identification  of  the  FD  statement  within  the  Data 
Division,  i.e.,  DCB-2  would  reflect  the  FD  as  defined  in  the 
second  SELECT  statement  in  the  ENVIRONMENT  division.  The  BL 
notation  (Base  locator)  will  point  to  a register  which  contains 
the  address  of  an  instruction. 

• EXHIBIT  III  (page  2-478)  and  EXHIBIT  IV  (page  2-479) 
reflects  the  first  and  second  pages  of  the  core  dump.  Since  the 
general  format  and  description  of  a dump  is  explained  in  a pre- 
vious section  of  this  chapter,  this  section  will  address  itself 
to  only  those  areas  that  are  necessary  to  successfully  debug  an 
0C7  (data  check)  ABEND. 
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• EXHIBIT  V (page  2-480)  and  EXHIBIT  VI  (page  2-481)  formats 
the  data  and  problem  program  areas  of  the  core  dump  which  we  will 
reference  In  detail  later  on  In  this  section. 

• The  first  thing  that  should  be  done,  upon  receiving  an 
ABEND,  is  to  reference  the  appropriate  completions  code  manual 
and  make  note  of  the  probable  causes  that  are  applicable  to  the 
particular  code  that  was  given  as  a result  of  the  ABEND. 

• After  considerable  debugging  experience,  the  meaning  of 
the  most  common  completion  codes  become  second  nature  to  the  pro- 
gramer.  At  the  beginning  of  this  chapter,  fifteen  codes  and 
their  meanings  are  listed. 

• The  one  ABEND  condition  that  is  singled  out  and  addressed 
in  this  section  is  the  0C7  (data  check).  An  0C7  always  indicates 
that  the  computer  tried  to  perform  an  operation  that  turned  out 
to  contain  invalid  data  or  the  data  fields  in  question  were  not 
properly  defined  to  accept  the  data  given. 

• At  this  point  consider  the  0C7  ABEND  that  did  take  place 
(EXHIBITS  I through  VI). 

Reference  EXHIBIT  III,  block  A,  and  note  that  the  program 
terminated  on  the  GO  step,  that  the  system  completion  code,  block 
B,  is  an  0C7. 

EXHIBIT  III,  block  C,  the  Active  Program  Status  Word 
(APSW)  displays  the  address  of  the  next  sequential  instruction 
(NSI)  as  located  in  the  core  dump.  This  is  the  NSI  taken  from 
the  updated  PSW  after  the  interrupt  occurred  and  a successful 
recovery  not  made  by  the  interrupt  handler.  This  is  why  the  pro- 
gramer  must  remember  to  back  up  one  instruction  to  reference  the 
actual  offending  instruction.  Make  a pencil  note  of  this  APSW 
address  (131874)  because  it  is  used  later  in  determining  the 
relative  address  of  the  NSI  located  in  the  PMAP. 

EXHIBIT  IV,  block  A,  displaces  the  entry  point  address 
(EPA)  which  reflects  the  beginning  address  of  the  region  where 
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Che  problem  program  was  loaded  in  main  storage.  Therefore,  Che 
EPA  address  Is  subtracted  from  the  APSW  address  as  follows: 


131874 

APSW 

- 1313C0 

EPA 

4B4 

RELATIVE  ADDRESS 

The  relative  address,  In  this  case  Is  4B4,  Is  used  to 
reference  a point  within  the  PMAP  which  provides  assistance  to 
the  programer  during  most  debugging  exercises.  (If  the  PMAP  is 
not  available,  use  the  APSW  address  and  go  directly  to  core  which 
will  reference  the  Next  Sequential  Instruction.) 

EXHIBIT  II,  block  A,  reflects  the  NSI,  but  remember  to 
back  up  one  instruction  to  arrive  at  the  actual  instruction  that 
ABENDED.  Therefore,  the  relative  address  of  the  actual  instruc- 
tion is  4AE  and  the  machine  instruction  on  the  same  line  is: 


Bits  8 

4 

4 

4 

12 

4 

12 

F9 

1 

1 

6 

m 

C 

(838 

OP  Code 

LI 

L2 

B1 

D1 

B2 

D2 
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Examination  of  the  above  instruction  reveals  that  it  is  a 
storage  to  storage  (SS)  format  and  checking  our  data  reference 
card  (green  card),  we  find  that  the  F9  Operations  Code  (OP-Code) 
is  a COMPARE  DECIMAL  operation.  Further,  we  see  that  the  length 
to  each  data  field  is  two  bytes  long;  the  base  register  for  the 
first  operand  (Bl)  reveals  that  general  register  6 was  used  to 
store  the  base  address  for  the  first  operand.  Reference  EXHIBIT 
III,  block  D,  which  displays  the  contents  of  register  6 (1315A0) 
plus  the  displacement  for  the  first  operand  which,  in  this  case  is 
000,  gives  us  the  exact  address  in  core  of  the  data  being  operated 
on  by  the  first  operand.  The  same  method  should  be  used  to  find 
the  data  area  for  the  second  operand  as  follows: 


EXHIBIT  II,  block  C. 

Register  C » 1317B8 

plus  displacement  038 
1317F0 


The  resulting  value  of  1317F0  give  the  exact  location  in 
main  storage  of  data  being  operated  on  by  the  second  operand. 

1 

Examination  of  core  location  1315A0,  EXHIBIT  V,  block  A 
for  two  bytes,  reveals  the  value  of  data  as  4830  (unsigned). 

Examination  of  core  location  1317F0,  EXHIBIT  VI,  block  A, 
for  two  bytes,  reveals  the  value  of  data  as  080C  (signed). 

Immediately  we  can  see  that  we  are  attempting  to  add 
signed  data  to  unsigned  data.  Further,  we  can  determine  that  the 
field  value  at  location  13I5A0  is  not  properly  formatted  to 
contain  valid  numeric  data  and  cannot  be  operated  on  under  the 
current  conditions. 


I 

\ 

\ 
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Let's  go  to  the  Procedure  Division  and  consider  the 
logical  aspects  of  the  problem.  EXHIBIT  II,  block  B,  displays 
the  system  assigned  line  number  in  the  Procedure  Division  where 
the  source  instruction  may  be  found. 

As  indicated,  EXHIBIT  I,  block  A,  line  37  in  the  Proce- 
dure Division  specifies  that:  IF  SUB 1 EQUAL  080  GO  TO  IMAGE-END. 
In  analyzing  the  statement  we  know  that  080  is  a numeric  literal 
which  will  be  placed  in  packed,  signed  format  by  the  compiler  and 
treated  so  by  a compare  instruction.  So,  looking  at  the  field  as 
a separate  entity,  there  is  nothing  wrong  here. 

The  SUBl  data  item  that  is  being  referenced  would  have  to 
first  be  defined  in  the  Data  Division.  EXHIBIT  I,  block  B,  indi- 
cates that  SUB1  was  defined  to  accept  three  bytes  of  numeric 
data,  packed  and  signed. 

At  first  glance  this  may  appear  to  be  a valid  way  of 
defining  data  fields.  But  when  you  stop  and  realize  that  the 
S/360  does  not  clear  storage  unless  told  to  do  so  and  that  it  is 
the  user's  responsibility  to  initialize  numeric  data  areas  before 
they  are  needed  for  arithmetic  operations,  you  will  see  that  the 
data  definition  of  SUBl  is  not  complete  until  the  VALUE  ZERO 
clause  is  added  to  the  line.  This  is  why  the  4830  value  is  still 
resident  at  location  1315A0  which  is  the  data  reference  point  in 
core  for  SUBI.  Further,  checking  (data  reference  card)  reveals 
that  the  value  of  4830  is  actually  part  of  a LOAD  HALF  (RX) 
machine  language  instruction  and  as  far  as  the  computer  is  con- 
cerned, the  sign  being  absent,  it  was  recognized  as  an  alphabetic 
value.  Thus,  numeric  data  was  to  be  compared  to  alphabetic  data, 
which  is  illegal  as  far  as  the  S/360  is  concerned. 

This  is  why  the  program  ABENDED  with  a data  check  (0C7) 
and  may  be  corrected  by  inserting  the  value  clause  on  the  SUBl 
definition  line. 
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10ENTIF ICATI3N  OlVISION. 

PROGRAM-io.  • REVERSE  • 

ENVIRONH=nT  OlVISION. 

CONFIGURATION  SECTION. 

SOURCE -COMPUTER.  IBM-370. 

C9JECT-CCNPUTER.  IBM-370. 

Input-output  section, 
file -cost  roc . 

SELECT  (SAGE  ASSIGN-TO  0A-3330- S-I MAGE l N. 
SELECT  IMAGET  ASSIGN  TO  0A-3330-S- 1 MAGE OUT 
OATA  OlVISION. 

FILE  SECTION. 

FO  IMAGE, 

LA3El  RECOROS  ARE  OMITTED* 

RECOPOING  MCOE  IS  F, 
oata  recoro  is  in»ut-in, 

SLOCk  CONTAINS  0 RECOROS. 

01  INPUT-IN. 

03  OATA-IN  OCCURS  ao  times  PICTURE  X. 

FO  IMAGE  T i 

UOEL  RECORDS  ARE  STANOARO* 

RECORDING  MODE  IS  F, 

BLOCK  CONTAINS  5 RECOROS. 

OATA  RECORD  IS  OUTPUT-OUT. 

01  OuTRu  T-OUT . 

03  CUTPU'-Or  OCCURS  60  TIMES  PtCTUHe  X. 
*ORK INS-STORAGE  section. 

01  WS-SUBSCRIPTS  COMP-3. 

— >-03  SUB  1 PICTURE  S999. 

03  SU22  PICTURE  3999. 

PROCEOURF  OlVISION. 

TOPPER. 

OP*  N INPUT  IMAGE.  OUTPUT  IMAGET. 

MAIN-LINE. 

READ  IMAGE,  AT  ENO  GO  TO  JOB-ENO-ROuT INE . 
LOOP. 

|F  SUB1  - 80  GO  TO  IMAGE-ENO. 


30001 
03032 
03003 
■*003* 
03003 
03326 
330  3 T 
30339 
93009 
03013 
02011 
3 00  12 
•33?  1 3 
303  1 * 
003  13 
00016 
0901  7 

0 3019 

1 3v  l 3 
9 3323 
00321 
00922 
03923 
9 JO  2 * 
93025 
00326 
0302  f 
990  2 8 
COO  2 9 
023  30 
09331 
•330  3 2 
93233 
>00  3 A 
33  >35 
03336 
0903/ 
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2.5.5.36  Debugging  of  COBOL  Segmented  Programs  Under  OS/MFT. 

• This  paragraph  is  designed  to  assist  programers  in 
debugging  segmented  programs.  Special  techniques  are  necessary 
to  determine  which  segment  is  in  core  at  the  time  a segmented 
program  abends,  and  to  find  the  program  location  of  the  last 
instruction  executed. 

• The  link  edit  map  and  core  dump  must  be  available. 

• Steps  to  be  followed  for  debugging  a segmented  program. 

Determine  the  origin  of  the  abending  program  by  sub- 
tracting the  segment  table  length  (FIGURE  2-50,  page  2-485)  from 
the  user  entry  point  given  in  the  first  active  RB  in  the  core 
dump  (FIGURE  2-51,  page  2-486). 


1D880 

User  Entry  Point 

- 38 

Segment  Table  Length 

1D848 

Origin  of  Load  Module 

Subtract  the  origin  of  the  abending  program  from  the 
current  PSW  address  (FIGURE  2-51).  This  gives  the  address  of 
the  abend  relative  to  zero: 


22786 

Current  PSW  Address 

-1D848 

Origin  of  Load  Module 

4F3E 

Address  of  Abend  Relative  to  Zero 
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(Cont.) 


If  the  address  relative  to  zero  is  within  the  root  seg- 
ment (less  than  the  origin  of  the  overlay  area) , continue  with 
normal  debugging  procedures.  Otherwise,  the  address  relative  to 
zero  should  point  to  a location  within  the  overlay  area.  The 
current  segment  in  core  must  be  determined  by  adding  the  CURSEGM 
location  (FIGURE  2-50)  to  the  load  module  origin.  This  gives  the 
location  of  the  segment  priority  number. 


The  segment  priority  number  is  a binary  half  word.  In  the 
example,  the  priority  number  is  X'37'  (FIGURE  2-51)  or  decimal  55. 
The  priority  number  in  decimal  will  identify  the  segment  in  core. 
This  priority  number  corresponds  to  the  priority  assigned  to  the 
sections  of  the  COBOL  source  program. 


The  address  of  the  failing  instruction,  relative  to  the 
beginning  of  the  overlay  segment,  is  calculated  by  subtracting  the 
origin  of  the  overlay  area  (FIGURE  2-50)  from  the  address  of  the 
abending  instruction  relative  to  zero: 


Address  of  abend  relative  to  zero 
Origin  of  Overlay  Area 


Address  of  Abend  Relative  to  beginning 
of  overlay  segment 


1D848 

Origin  of  Load  Module 

+3611 

CURSEGM  Location 

20E59 

Location  of  Segment  Priority  Number 

7 
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The  programer  can  now  refer  to  the  compile  source  listing 
for  the  overlay  segment  in  error  and  determine  the  failing 
instruction  as  in  normal  debugging  procedures. 
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SAMPLE  LINK  EDIT  MAP 

F128-LEVEL  LINKAGE  EDITOR  OPTIONS  SPECIFIED  XREF,  LIST,  LFT, 
DEFAULT  OPTION(S)  USED  - SIZE  - (151552,40960) 


IEWOOO 

IEWOOO 

IEWOOO 

IEWOOO 

IEWOOO 

IEWOOO 

IEWOOO 

IEWOOO 


INSERT  P3MALL 
OVERLAY  A 
INSERT  P3MALL50 
OVERLAY  A 
INSERT  P3MALL55 
OVERLAY  A 
INSERT  P3MALL60 
ENTRY  P3MALL 

CROSS  REFERENCE  TABLE 
CONTROL  SECTION 


ENTRY 


$SEGTAB 

P3MALL 

ILBODTEO 

ILBOSGMO 

P3MALL50 


ORIGIN  LENGTH  SEG.NO.  NAME 


ILBODTE1 


LOCATION 


CURSEGM 


LOCATION  REFERS  TO  SYMBOL  IN  CONTROL  SECTION  SEG.NO. 


SAMPLE  LINKED IT  MAP 


CONTROL  SECTION 


ENTRY 


ORIGIN  LENGTH  SEG.NO.  NAME 


LOCATION 


P3MALL55  4298 


LOCATION  REFERS  TO  SYMBOL  IN  CONTROL  SECTION  SEG.NO. 


CONTROL  SECTION 


ENTRY 


ORIGIN  LENGTH  SEG.NO. 


LOCATION 


P3MALL60  4298  F4 


LOCATION  REFERS  TO  SYMBOL  IN  CONTROL  SECTION  SEG.NO. 


O 
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SAMPLE  CORE  DUMP 

JOB  P3MALL3T  STEP  STEP2  TIME  105404  DATE  74169 
COMPLETION  CODE  SYSTEM  = OC7 

PROGRAM  INTERRUPTION  (DATA)  AT  LOCATION  022780 
INTERRUPT  AT  022786 

PSW  AT  ENTRY  TO  ABEND  FF75000D  C0022786 


TCB  OOBDCO  RB 

00035458  PIE 

00000000 

DEB  000355CC 

TIOT 

MSS 

0000BE90  PK 

70A10008 

FLG  000004AD 

LLS 

ACTIVE  RBS 

PRB  0ID800  NM  P3MALL  SZ/STAB  0F8F00C0  USE/EP  0001D880  PSW 
FF75000D  C0022786 

LOAD  LIST 

LPRB  036280  nM  IEWSZOVR  SZ/STAB  00382010  USE/EP  0203627A0 

GA  0-7  000000FF  000052B0  00005208  000056A9  00000000-00000000 

00000000  00000000 

GR  8-F  0000581A  8A006632  00006632  0000502A  00005FA0  00000000 
00000350  00000000 

000000  00000000  00000000  00000000  00000000  00000000  00000350 
FF060040  00000000 

000010  FF050007  4000483E  00000000  00000000  5B58C2C5  00000000 
FF0500E0  7000474A 

020E40  9640F126  132247F0  F004002B  08005169  0000007F  7FFFFFFF 
00370037  00370030 


FIGURE  2-51 


00036670 

00035058 
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2.6  CSC  COBOL  PROGRAM  DESIGN  TECHNIQUES. 

• While  most  programing  problems  defy  a common  approach,  a 
number  of  general  techniques  can  aid  in  writing,  debugging  and 
maintaining  computer  programs.  This  section  recommends  approaches 
to  programing  which,  in  the  long  run,  will  free  the  programer  to 
put  more  time  and  energy  into  problem-solving  and  responding  to 
users'  needs. 


2.6.1  PROCEDURE  DIVISION  DESIGN. 

THE  MAINLINE. 

• The  mainline  should  be  devoted  to  the  chief  processing 
activity.  Implied  in  this  is  the  logical  interface  function. 
Choosing  what  problem-solving  code  is  to  be  executed  is  its  main 
function.  This  control  is  executed  through  testing  then 
performing  subroutines.  If  abnormal  situations  can  arise,  a 
cursory  test  can  be  made  to  identify  the  cases  and  then  be  dealt 
with  separately  in  a subroutine. 

• The  mainline  should  describe  the  program  in  its  most 
abstract  form.  A programer  should  be  able  to  pick  up  a program 
listing  and,  by  reading  through  the  mainline,  gain  a general 
knowledge  of  the  program's  major  functions. 

Initial  housekeeping. 


( 


i 

* 

f, 


i 

F 


r 

I 


f 

•> 


Subroutines. 

End-of-job  processing. 

HOUSEKEEPING. 

• Housekeeping  is  a familiar  function  to  everyone.  The 
obvious  tasks  included  in  housekeeping  are  opening  of  files,  data 
field  initialization,  obtaining  the  date  and/or  time,  table 
loading,  etc.;  in  short,  anything  that  deals  more  with  preparing 
to  run  a program  than  accomplishing  the  program's  functions. 

• Most  housekeeping  is  performed  once,  such  as  file  opening; 
some  is  performed  cyclically  such  as  blanking  fields  after  each 
transaction.  These  one-time  functions  can  be  kept  separate  so 
that  the  cyclical  occurring  actions  can  be  performed  when  required. 
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2.6.1  PROCEDURE  DIVISION  DESIGN.  (Cont.) 

• All  housekeeping  routines  should  be  PERFORMed  by  the 
mainline  of  the  program. 

SUBROUTINES. 

• A subroutine  consists  of  one,  clear  and  well-defined 
function. 

• The  PERFORM  verb  and  paragraph  structure  of  COBOL  pro- 
vide the  natural  environment  for  closed  subroutine  structures. 

• Since  COBOL  is  not  strict  in  its  structure  of  the  PERFORM 
statement,  the  user  can  easily  violate  its  usefulness  in  imple- 
menting closed  subroutines.  Therefore,  as  mentioned  under  the 
PERFORM  verb  in  the  PROCEDURE  DIVISION  Techniques,  the  PERFORM 
verb  should  always  be  used  with  the  following  format: 


PERFORM  paragraph-name  THRU  paragraph-exit-name. 


Paragraph-exit-name  should  be  an  EXIT  paragraph.  By  using  the 
THRU  option,  the  scope  of  the  code  referenced  by  the  PERFORM  is 
clearly  indicated. 

• PERFORMing  a SECTION  is  not  a good  technique  because  the 
tendency  is  to  forget  to  define  the  scope  of  a SECTION  by  another 
SECTION  statement. 

• A subroutine  should  always  have  a single  entry  point  and 
a single-exit  point.  All  conditional  and  unconditional  branches 
within  the  subroutine  should  always  pass  control  to  the  EXIT 
paragraph.  The  point  of  entry  of  a subroutine  should  always  be 
the  same.  The  user  can  probably  see  little  harm  in  PERFORMing  an 
inner  paragraph.  However  if  this  rule  is  violated  it  can  at  some 
time  cause  program  difficulties. 

• Subroutines  should  be  grouped  together  in  the  program 
apart  from  the  main  line  or  process-directing  paragraphs.  These 


i 
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2.6.1  PROCEDURE  DIVISION  DESIGN.  (Cont.) 

process-directing  paragraphs  should  never  by  branched  to 

(GO  TO...)  by  a subroutine.  A GO  TO,  AT  END  path,  etc.,  should 

never  cause  control  to  pass  from  the  range  of  a PERFORM. 

• Entire  paragraph-groups  can  be  frequently  reused  in  more 
than  one  program.  If  a given  paragraph-group  is  often  executed 
it  may  be  more  desirable  to  include  it  in-line  rather  than  using 
it  in  a called  subprogram. 

• The  COPY  facility  of  COBOL  provides  the  programer  with 
the  capability  of  reusing  code. 

END-OF-JOB  ROUTINES.  End-of-job  routines  normally  include 
closing  of  files  and  either  return  to  the  mainline  routine  or 
STOP  RUN. 
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2.6.2  STANDARD  LOGIC  CONSTRUCTS. 

CONDITIONAL  STATEMENT  ORDERING. 

• The  relative  frequency  of  data  item  values  should  be  con- 
sidered in  ordering  conditional  statements  within  the  source 
program. 

• EXAMPLE.  Program  A (FIGURE  2-52)  is  a master  file 
update  accepting  five  basic  transactions,  each  with  the  following 
occurrence  ratio: 

number  of  one  transaction  type 


TOTAL  NUMBER  TRANSACTIONS 


MEANING 

FREQUENCY 

ADD  record  to  file 

40% 

data  field  change 

15% 

delete  record  from  file 

30% 

control  field  change 

2% 

inquiry 

13% 
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» 


0010-DIRECT-TRANS. 

IF  T-TRANS-CODE  IS  EQUAL  TO  'A' 

PERFORM  0060-ADD-MASTER  THRU  0070-ADD-MASTER-X 
GO  TO  00 50-READ- TRANS. 

IF  T-TRANS-CODE  IS  EQUAL  TO  'D' 

PERFORM  0080-DELETE-MASTER  THRU  0090-DELETE-MASTER -X 
GO  TO  0050-READ-TRANS . 

IF  T-TRANS-CODE  IS  EQUAL  TO  'C' 

PERFORM  0100-CHANGE-MASTER  THRU  0110-CHANGE-MASTER-X 
GO  TO  0050-READ-TRANS. 

IF  T-TRANS-CODE  IS  EQUAL  TO  'I' 

PERFORM  0120-INQUIRY-EXTRACT  THRU  0130-INQUIRY-EXTRACT-X 
GO  TO  0050-READ-TRANS. 

IF  T-TRANS-CODE  IS  EQUAL  TO  'K* 

PERFORM  0140-CONTROL-CHANGE  THRU  0150-CONTROL-CHANGE-X 
GO  TO  0050  TO  0050-READ-TRANS. 


FIGURE  2-53 


LATEST  DECISION  PRINCIPLE 

• This  principle  asserts  that  decisions  which  control  pro- 
gram flow  should  not  be  made  now  if  they  can  be  made  at  a later 


G 
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2.6.2  STANDARD  LOGIC  CONSTRUCTS.  (Cont.) 


time.  This  action  usually  results  in  a program  which  is  easy  to 
follow,  and  it  generally  eliminates  many  redundant  statements. 


INCORRECT  APPROACH 


If  A IS  EQUAL  TO  B 


MOVE  C TO  X 


MOVE  D TO  Y 


0040-XY 


MOVE  C TO  X 


MOVE  E TO  Y 


MOVE  F TO  Z 


LATEST  DECISION  APPROACH 


MOVE  C TO  X 


MOVE  F TO  Z 


IF  A IS  EQUAL  TO  B 
MOVE  E TO  Y 


ELSE 


MOVE  1>  TP  Y 
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LOOP  CONTROLLING 


• The  most  natural  and  apparent  loop  in  COBOL  is  the  PERFORM 
with  the  VARYING  option.  This  form  of  looping,  combined  with 
indexing,  can  eliminate  most  of  the  typical  problems  such  as 
underflow  and  overflow  of  the  index. 


• The  general  ANS  construct  of  this  standard  form  is 


PERFORM  paragraph-name  THRU  paragraph-exit-name 
VARYING  index-name  FROM  identifier-1  BY 
identifier-2  UNTIL  condition-statement 


The  index-name  should  be  unique  for  each 
PERFORM. . .VARYING. 


If  care  has  been  taken  to  define  a simple,  one- 
dimensional table,  the  initial  value  (identifier-1)  and  the 
stepping  value  (identif ler-2)  can  usually  both  have  a value  of  1 


The  condition  statement  tests  the  index-name  for  its 
having  equaled  a predetermined  limit. 


PERFORM  IA-MARCH-LOOP  THRU  LAX-MARCH-LOOP-X 
VARYING  MAR- INDEX  FROM  1 BY  1 
UNTIL  MAR-INDEX  IS  GREATER  THAN  31. 


• It  cannot  be  overstressed  that  much  difficulty  may  be 
avoided  by  using  the  PERFORM .. .VARYING  for  looping.  There  may 
be  a few  instances,  however,  in  which  it  is  not  feasible  to  use 
this  construct.  In  these  cases,  every  step  of  a loop  should  be 
clearly  separated  and  defined. 
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2.6.2  STANDARD  LOGIC  CONSTRUCTS.  (Cont.) 

INITIALIZE. 

INCREMENT. 

TEST  INDEX- VALUE. 

TEST  CONDITION. 

EXIT. 

A practical  method  of  programing  this  type  of  situation 
is  to  first  program  the  body  of  the  loop  for  the  general  case  and 
next  program  it  for  the  last  iteration.  Then  backup  and  program 
the  initialization  and  incrementation  step.  Finally,  determine  if 
the  body  will  operate  correctly  for  all  values  of  the  parameter. 

Making  it  simple  to  find  the  whereabouts  of  looping  tasks 
(Initializing,  incrementing,  testing,  etc.)  can  bring  increased 
success.  If  there  is  good  reason  why  these  tasks  must  be  sepa- 
rated, then  careful  structural  arrangement  of  the  program  can  help 
Increase  the  readability.  For  example,  if  involved  computation  is 
required  to  obtain  values  assigned  to  an  index,  limit  and  incre- 
ment value,  PERFORM  the  module(s)  to  determine  these  parameters 
just  prior  to  PERFORMing  the  process  module. 

Example:  programer  control  of  looping  with  indexing. 

(Refer  to  FIGURE  2-54,  page  2-495.) 

This  example  shows  a practical  method  of  loop  controlling.  The 
programer  should  note,  however,  that  the  PERFORM. . .VARYING  could 
accomplish  the  function  as  well. 
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WORKINC-STORAGE  SECTION 


USAGE  IS  INDEX 


WS-INOEX-LLMIT 


PROCEDURE  DIVISION 


0010-HOUSEKEEP 


SET  WS- INDEX-LIMIT  TO  32 


00020-AA- ENTER 


SET  WS-A- INDEX  TO  ZERO 


0030-AB-LOOP 


SET  WS-A-INDEX  UP  BY  1 


IF  WS-A- INDEX-LIMIT  IS  EQUAL  TO  WS- INDEX-LIMIT 


CO  TO  0040-ABX- LOOP- EXIT 


GO  TO  0030-AB-LOOP 


0040-ABX-LOOP- EXIT 


EXIT 


FIGURE  2-54 
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RELATION  CONDITIONS— TESTING  THE  INDEX. 

• When  testing  an  index-name  used  in  a loop  for  its  limit, 
a data  conversion  may  be  necessary  for  certain  comparisons.  In 
addition,  some  comparisons  are  illegal.  The  following  rules 
apply: 

1.  The  comparison  of  two  index-names  is  actually  the 
comparison  of  the  corresponding  occurrence  numbers. 

2.  In  the  comparison  of  an  index-name  with  an  ordinary 
data  item  or  with  a literal,  the  occurrence  number 
that  corresponds  to  the  value  of  the  index-name  is 
compared  with  the  data  item  or  literal. 

3.  In  the  comparison  of  an  index  data  item  with  an  index- 
name  or  another  index  data  item,  the  actual  values  are 
compared  without  conversion. 

4.  Any  other  comparison  involving  an  index  data  item  is 
illegal. 

INDEX-NAMES  AND  INDEX  DATA  ITEMS— COMPARISONS 


SECOND 

OPERAND 

INDEX 
DATA  ITEM 

DATA-NAME 

(numeric 

integer) 

LITERAL  ! 

(numeric 
integer) 

FIRST 

OPERAND 

INDEX-NAME 

INDEX-NAME 

Compare 

Compare 

Compare 

Compare  j 

occurrence 

without 

occurrence 

occurrence 

number 

conversion 

number  with 

number  with  S 

data-name 

literal 

(conversion 

(conversion 

implied) 

implied) 

INDEX 

Compare 

Compare 

DATA  ITEM 

without 

without 

Illegal 

Illegal  j 

conversion 

conversion 

FIGURE  2-55 
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SECOND 

OPERAND 

INDEX 
DATA  ITEM 

DATA-NAME 

(numeric 

integer) 

LITERAL 

(numeric 

integer) 

FIRST 

OPERAND 

INDEX-NAME 

DATA-NAME 

(numeric 

integer) 

Compare 

occurrence 

number  with 
data-name 
(conversion 
implied) 

Illegal 

LITERAL 

(numeric 

integer) 

Compare 

occurrence 

number  with 
literal 
(conversion 
implied) 

Illegal 

FIGURE  2-55  (Cont.) 


* 

* 


USING  FLAGS. 

• The  term  "flag"  refers  to  the  use  of  data  items  to  control 
processing.  "Switch"  can  be  a synonym,  however,  it  has  a second- 
generation-computer  connotation  of  toggle  switches  on  the  com- 
puter's console.  The  use  of  a flag  is  simple.  Somewhere  in  the 
program  a MOVE  statement  sets  the  value  of  the  flag.  Elsewhere 

in  the  program  the  value  of  the  flag  is  tested  and  action  is  taken 
dependent  on  the  value.  Finally  the  flag  may  be  reset. 

• The  use  of  flags  can  be  a problem  area. 

The  programer  can  lose  track  of  where  in  the  logic  the 
flag  was  last  set  or  reset. 

The  same  flag  is  used  for  several  purposes,  and  again 
the  programer  loses  track  of  which  use  last  set  the  flag's  value. 
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• The  use  of  flags/switches  is  not  recommended  and  pro- 
gramers  are  advised  to  develop  a habit  of  using  data  to  determine 
proper  logic  flow. 

The  technique  of  moving  (HIGH-VALUES)  to  an  input 
(WORKING-STORAGE)  area  when  encountering  an  end-of-file  condition 
provides  a logical  means  of  determining  which  file  should  be  read. 

In  the  event  flags/switches  are  required  the  important 
point  is  to  develop  consistency.  If  a programer  treats  flags/ 
switches  in  the  same  manner  each  time  a high  level  of  dependa- 
bility results.  Keep  flag/switch  constructs  simple  and  visible. 

Comment  lines  both  within  the  logical  flow  and  the  data 
description  of  flags  add  further  clarity. 

Alphanumeric  program  flags  result  in  more  efficient  object 
code  when  condition  testing  is  done.  Numeric  program  flags  are 
packed  before  any  comparison  is  made.  For  simple  program  flags, 
there  are  certain  techniques  applicable  across  vendor  lines. 

1.  For  improved  readability  and  maintainability  of  pro- 
gram flags,  it  is  best  to  use  alphanumeric  flags  with  values  of 
"Y"  or  "N"  to  indicate  the  field  status.  This  can  be  done  in  two 
ways.  A data  item  can  be  interrogated  directly  by  data  name  or 
conditions  names  (88-levels)  may  be  assigned  and  interrogated. 
(Refer  to  FIGURE  2-36.) 


WORKING-STORAGE  SECTION. 

77  WS-EOJ-FLAG  PIC  X VALUE  "N". 


05  WS-FILE-STATUS  PIC  X VALUE  "Y". 

88  FILE-OPEN  VALUE  IS  "Y". 

88  FILE-CLOSE  VALUE  IS  "N". 


FIGURE  2-56 
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2 . 7 COBOL  PROGRAM  STRUCTURE  TECHNIQUES. 

WORKING  STORAGE  ORGANIZATION. 

• To  help  improve  source  listing  readability  and  debugging 
capability,  the  following  formatting  techniques  are  recommended 
for  the  WORKING-STORAGE  SECTION.  This  organization  will  result 
in  execution-time  improvement  and  main-storage  savings  for  some 
vendors . 

• The  placement  of  the  following  nonnumeric  literals  as  the 
first  and  last  WORKING-STORAGE  statement  is  an  aid  in  locating 
this  section  of  the  program  in  object-time  dumps. 


77 

FILLER 

PICTURE  X(44) 

VALUE 

"PROGRAM  XXXXXXXX 

WORKING- STORAGE 

BEGINS  HERE" 

01 

FILLER 

PICTURE  X(42) 

VALUE 

"PROGRAM  XXXXXXXX  WORKING-STORAGE  ENDS  HERE". 


• These  two  literals  will  appear  in  all  dumps  of  the  program 
delineating  the  WORKING-STORAGE  SECTION.  The  program-name 
replaces  the  XXXXXXXX  in  the  literal. 

• The  actual  WORKING- STORAGE  data  should  be  divided  into 
three  groups:  COMPUTATIONAL  77-level  items,  all  other  77-level 
items  and  01-level  items.  The  structure  within  groups  is  listed 
below. 


• COMPUTATIONAL  77-level  items  should  have  the  following 

structure: 


Items  with  PICTURES  from  S9(10)  through  S9(18),  in 
alphabetical  order. 
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2.7  COBOL  PROGRAM  STRUCTURE  TECHNIQUES.  (Cont.) 


Items  with  PICTURES  from  S9(5)  through  S9(9),  in 
alphabetical  order. 

Items  with  PICTURES  from  S9  through  S9(4),  In  alpha- 
betical order. 


All  other  77-level  items  should  be  grouped  in  alpha- 
betical order. 

All  01-level  record  descriptions  should  be  listed  in 
order  of  frequency  of  use. 

• Liberal  use  should  be  made  of  spacing,  page  ejecting,  and 
comments  to  make  the  WORKING-STORAGE  coding  more  meaningful. 

IBM  GUIDELINES. 

• The  first  4,096  characters  of  data  in  the  WORKING-STORAGE 
SECTION  are  assigned  a permanent  base  register.  By  putting  the 
77-level  data  items  and  the  most  referenced  01-level  data  item 
first,  the  most  frequently  used  WORKING-STORAGE  data  may  be 
referenced  without  resetting  registers.  This  results  in  execu- 
tion-time improvement. 


• IBM  COMPUTATIONAL  items  are  aligned  on  boundaries  accord- 
ing to  the  following  schema: 

Items  described  by  PICTURES  corresponding  to  10  through 
18  decimal  digits  are  aligned  on  doubleword  boundaries. 

Items  described  by  PICTURES  corresponding  to  5 through  9 
decimal  digits  are  aligned  on  fullword  boundaries. 

Items  described  by  PICTURES  corresponding  to  1 through  4 
decimal  digits  are  aligned  on  halfword  boundaries. 

The  WORKING-STORAGE  organization  recommended  will  help 
make  maximum  use  of  main  storage.  The  fields  are  arranged  so  that 
boundary  alignment  is  automatic  and  the  need  for  slack  bytes 
between  fields  is  eliminated. 


2-501 
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2.7.1  DATA  FORMAT  CONSIDERATIONS. 

NUMERIC  DATA  ITEMS. 

• GENERIC  CONCEPTS. 

The  internal  representation  and  use  of  numeric  data  items 
is  a function  of  the  compiler  provided  by  each  vendor. 

• IBM  GUIDELINES. 

IBM  supports  the  use  of  three  data  formats:  binary, 
external  decimal  and  internal  decimal.  These  are  referred  to  in 
COBOL  terminology  as,  respectively,  COMPUTATIONAL,  DISPLAY,  and 
COMPUTATIONAL- 3.  For  the  purposes  of  the  following  discussions, 
DISPLAY  refers  to  numeric  DISPLAY  items.  The  shortened  forms  COMP 
for  COMPUTATIONAL  and  COMP-3  for  C0MPUTATI0NAL-3  are  used  in  this 
text.  Knowledge  of  these  formats  and  their  internal  EBCDIC 
representation  is  vital  for  efficient  processing  of  numeric  data. 

The  following  chart,  FIGURE  2-57  (page  2-503),  shows  the 
characteristics  of  IBM  numeric  data  formats. 

The  internal  representation  of  a numeric  data  item  is  a 
function  of  the  PICTURE  and  USAGE  clauses  pertaining  to  it.  The 
following  charts  illustrate  these  relationships. 

NUMERIC  DISPLAY  (External  Decimal). 


. PICTURE 

USAGE 

VALUE 

INTERNAL  REPRESENTATION  | 

9999 

DISPLAY 

-1234 

1 *1- 

I F2  I F3  | F4  | 

S9999 

DISPLAY 

-1234 

1 FI 

1 F2  I F3  | D4  | 

Hexadecimal  'F'  is  treated  arithmetically  as  a plus  in  the 
low-order  byte.  The  hexadecimal  character  'D'  represents  a nega- 
tive sign.  Therefore,  it  is  important  to  apply  a sign  to  the 
PICTURE  clause  for  any  numeric  DISPLAY  item  which  will  be  used  in 
an  arithmetic  operation.  If  a sign  is  not  used,  invalid  results 
may  occur. 
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2.7.1  DATA  FORMAT  CONSIDERATIONS.  (Cont.) 

COMPUTATIONAL- 3 (Internal  Decimal). 


USAGE 

VALUE 

INTERNAL  REPRESENTATION 

9999 

COMP- 3 

+1234 

) 01  1 23 

|4F  1 

S9999 

COMP- 3 

+ 1234 

1 01  1 23 

-1 A c 1 

1.  Hexadecimal  'F*  is  treated  arithmetically  as  positive. 
The  hexadecimal  character  'C'  represents  a plus  sign. 

2.  Since  the  low-order  byte  of  an  internal  decimal  num- 
ber always  contains  a sign  field,  an  item  with  an  odd  number  of 
digits  can  be  stored  more  efficiently  than  an  item  with  an  even 
number  of  digits.  The  unused  high-order  positions  will  be  zero 
filled  requiring  extra  instructions  to  be  generated.  All  COMP-3 
items  should,  therefore,  be  coded  with  an  odd  number  >'  digits. 

COMPUTATIONAL  (Binary). 


PICTURE 

USAGE 

VALUE 

INTERNAL  REPRESENTATION 

S9999 

COMP 

1234 

1 0000 

1 0100 

1 1101  1 

0010  | 

S9999 

COMP 

-1234 

I 1111 

1 0100 

1 1101  1 

0010  1 

(Sign  Position) 


1.  The  allocated  space  for  a binary  item  can  contain  a 
value  much  larger  than  the  value  implied  by  the  PICTURE.  For 
example,  for  a field  defined  with  a PICTURE  of  S9(4),  the  maximum 
value  is  9,999.  However,  the  actual  maximum  value  could  be 
32,767. 
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2.7.1  DATA  FORMAT  CONSIDERATIONS.  (Cont.) 

Generally,  the  programer  does  not  need  to  be  concerned  with 
this  situation.  However,  in  the  following  cases,  he  must  be  very 
careful  of  the  value  of  his  data. 

a.  When  the  ON  SIZE  ERROR  option  is  used,  the  size  test 
is  based  on  the  implied  maximum  value  as  defined  by  the  PICTURE 
clause  of  the  result  field.  If  a size  error  is  detected,  control 
passes  to  the  imperative  statements  specified  by  the  error  option. 

The  programer  must  remember  that  the  result  field  has  not 
been  altered  and  still  contains  the  value  which  created  the  size 
error  condition.  This  value  is  larger  than  that  implied  by  the 
PICTURE  clause  of  that  field. 

b.  When  a binary  item  is  displayed  or  exhibited,  the 
value  used  is  a function  of  the  number  of  9s  specified  in  the 
PICTURE  clause. 

c.  Since  a 0-bit  in  the  sign  position  means  a number 
is  positive  and  a 1-bit  in  the  sign  position  means  a number  is 
negative,  care  must  be  taken  not  to  let  the  value  overflow  into 
the  sign  position.  For  instance,  when  the  actual  value  of  a 
positive  number  is  significantly  larger  than  its  picture  value, 
a 1 could  result  in  the  sign  position  of  the  item,  causing  the 
item  to  be  treated  as  a negative  number. 

2.  The  following  table  illustrates  three  binary  manipu- 
lations. The  result  fields  have  been  described  as  PICTURE  S9 
COMPUTATIONAL.  The  ON  SIZE  ERROR  option  was  not  used.  If  it  had 
been  specified,  it  would  have  executed  for  the  last  two  items  in 
the  table. 


Hexadecimal  Resultant 
of  Binary 
Calculation 

Decimal 

Equivalent 

Actual  Decimal 
Value  in  Halfword 
of  Storage 

Display 

Exhibit 

Value 

0008 

8 

+8 

8 

000A 

10 

+10 

0 

C350 

50000 

-15536 

6 
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2.7.1  DATA  FORMAT  CONSIDERATIONS.  (Cont.) 

Effective  use  of  the  above  data  representation  can  be 
summarized  in  the  following  general  rules. 

1.  Use  9's  in  a PICTURE  only  when  arithmetic  or  editing 
operations  will  be  executed  on  the  data  item  (for  switches/flags 
use  PIC  X). 


2.  Unless  the  field  is  used  as  part  of  an  edit  PICTURE, 
the  9 should  always  be  preceeded  by  an  operational  sign,  i.e., 
use  PIC  S9. 

3.  When  a data  item  is  used  as  a subscript  or  as  the 
object  in  a GO  TO ...  DEPENDING  ON,  the  usage  of  the  data  item 
should  be  COMP  (signed  binary). 

4.  For  arithmetic  operations  use  a COMP-3  description 
with  an  odd  number  of  9's  in  the  PICTURE. 

DATA  FORMAT  CONVERSIONS. 

• GENERIC  CONCEPTS. 

The  data  format  selected  can  make  considerable  difference 
in  the  amount  of  object  code  generated  and  in  the  execution  time 
of  the  operation.  Data  formats  of  a mixed  mode  require  internal 
conversions  to  a common  mode  before  execution  takes  place.  This 
is  especially  true  for  mixed  elementary  numeric  data  formats.  ' 
These  items  usually  cause  code  to  be  generated  which  moves  the 
item  to  an  internal  work  area,  converts  it,  and  then  executes  the 
indicated  operation.  The  result  may  also  have  to  be  concerted. 

The  types  of  formats  available  and  the  conversions  which 
take  place  are  a function  of  each  vendor. 

• IBM  GUIDELINES. 

Program  efficiency  can  be  improved  by  minimizing  the  num- 
ber of  instructions  generated  to  convert  misled  mode  data  to  a 
common  format.  The  following  techniques  indicate  ways  this  can  be 
accomplished. 

1 . The  same  data  formats  should  be  used  throughout  the 
program  for  items  which  are  frequently  used  together. 
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2.7.1  DATA  FORMAT  CONSIDERATIONS.  (Cont.) 

2.  If  It  is  impractical  to  use  the  same  data  formats 
throughout  the  program,  a one-time  conversion  should  be  effected. 
The  data  should  be  moved  to  a work  area  which  is  in  a format 
which  does  not  require  conversion  for  specified  operations,  (i.e., 
arithmetic  operations).  The  work  area  can  then  be  referenced 
whenever  these  operations  are  performed  on  that  data  item.  This 
eliminates  the  need  for  internal  conversions  every  time  the  item 
is  used  since  the  data  is  stored  in  the  work  area  already  in 
converted  form. 

The  following  tables  compare  the  various  IBM  data  formats 
in  respect  to  code  generated  and  main  storage  used.  The  accumu- 
lated data  was  taken  from  an  S/360  system  with  code  generated  by 
an  ANS  COBOL  compiler.  While  these  figures  may  not  apply  specif- 
ically to  every  IBM  360  system,  the  concepts  are  representative 
and  can  be  applied  in  general  terms  to  all  IBM  360  systems. 

Three  different  operations  are  compared:  arithmetic 
operations,  MOVE  operations,  and  data  comparisons.  The  number  of 
significant  digits  in  each  data  field  is  the  same  although  the 
actual  length  of  each  field  depends  on  its  mode. 

In  addition,  the  systems  generated  data  conversions  for 
each  combination  of  formats  in  each  operation  are  specified.  It 
is  important  to  note  that  because  of  hardware  limitations,  over- 
size binary  (computational)  items  (those  with  PICTURES  indicating 
more  than  eight  digits)  require  additional  conversions  before  the 
specified  operation  takes  place. 

The  data  fields  used  in  this  illustration  are:  (Refer  to 
FIGURE  2-58.) 


77 

WS-ED 

PIC 

S9(5) 

77 

WS-BIN 

PIC 

S9(4) 

COMP 

77 

WS-PACK 

PIC 

S9(5) 

COMP- 3.  j 

FIGURE  2-58 


CSCM  18-1-1 


1 FEB  79 


2.7.1  DATA  FORMAT  CONSIDERATIONS.  (Cont.) 


77 

WS-ED1 

PIC 

S9  (5) . 

77 

WS-ED2 

PIC 

S9(5). 

77 

WS-PACK1 

PIC 

S9(5) 

COMP- 3. 

77 

WS-PACK2 

PIC 

S9  (5) 

COMP- 3. 

77 

WS-BIN1 

PIC 

S9  (4) 

COMP. 

77 

WS-BIN2 

PIC 

S9(4) 

COMP. 

77 

WS-AN1 

PIC 

X(5) . 

77 

WS-AN2 

PIC 

X(5) . 

FIGURE  2-58  (Cont.) 


In  each  illustration,  the  COBOL  statement  is  listed  first  - then 
followed  by  its  generated  coding. 

The  object  code  generated  for  a simple  arithmetic  opera- 
tion contains  systems  generated  instructions  for  converting  mixed 
mode  data  to  a common  format.  For  example,  the  simple  COBOL 
statement: 


ADD  A TO  B 

will  produce  different  object  code  for  each  combination  of  data 
formats.  The  systems  generated  conversion  steps  produced  by  the 
object  code  for  each  combination  of  numeric  data  formats  are 
listed  in  the  following  examples. 


2.7.1  DATA  FORMAT  CONSIDERATIONS.  (Cont.) 

'"..e  work  fields  referred  to  in  the  examples  are  those 
internally  allocated  by  the  system. 

1.  ARITHMETIC  OPERATIONS. 

This  chart  compares  a simple  ADD  operation  as  executed  in 
all  of  the  possible  combinations  of  the  three  data  formats.  The 
data  conversions  required  to  accomplish  this  operation  are  the 
same  for  all  arithmetic  operations.  (Refer  to  FIGURE  2-59.) 


| ADD 

RESULTANT 

Number  of 
Instructions 
Generated 

Amount  of 

Code 

Generated 

A FIELD 

B FIELD 

DISPLAY 

DISPLAY 

DISPLAY 

4 

24 

COMP 

DISPLAY 

DISPLAY 

6 

32 

COMP- 3 

DISPLAY 

DISPLAY 

3 

18 

COMP- 3 

COMP- 3 

COMP- 3 

1 

6 

COMP 

COMP- 3 

COMP- 3 

4 

20 

DISPLAY 

COMP- 3 

COMP- 3 

2 

12 

COMP 

COMP 

COMP 

6 

30 

COMP- 3 

COMP 

COMP 

6 

30 

DISPLAY 

COMP 

COMP 

6 

30 

FIGURE  2-59 
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2.7.1  DATA  FORMAT  CONSIDERATIONS.  (Cont.) 


a.  NUMERIC  DISPLAY  TO  NUMERIC  DISPLAY. 


ADD  EDI 

TO  ED2. 

PACK 

1F0(8,13),00A(5,6) 

DISPLAY  data  (EDI)  converted  to  COMP-3 

In  work  field 

PACK 

1F8(8,13) , 00F (5,6) 

DISPLAY  data  (ED2)  converted  to  COMP-3 
in  work  field 

AP 

1F4(4,13),1FD(3,13) 

COMP-3  addition  executed  with  work 
fields 

UNPK 

00F(5,6) ,1F4(4,13) 

Result  of  addition  in  COMP-3  work 
field  converted  to  DISPLAY  and 
placed  in  DISPLAY  data  field  (ED2) . 

b.  COMPUTATIONAL 

TO  NUMERIC  DISPLAY. 

ADD  BIN 

TO  ED. 

PACK 

1F0(8,13) ,000(5,6) 

DISPLAY  data  (ED)  converted  to  COMP-3 

MVC 

200(2,13) ,005(6) 

COMP  data  (BIN)  moved  to  work  field 

LH 

3,200(0,13) 

COMP  work  field  aligned  in  2nd  work 
field 

CVD 

3 , 1F8 (0 ,13) 

COMP  data  converted  to  COMP-3 

AP 

1FC(4,13) ,1F5(3,13) 

COMP-3  addition  executed  with  work 
fields 

UNPK 

000(5,6) , 1FC(4 , 13) 

Result  of  addition  in  COMP-3  work 
field  converted  to  DISPLAY  and 
placed  in  DISPLAY  data  field  (ED) 
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COMPUTATIONAL- 3 TO  NUMERIC  DISPLAY 


ADD  PACK  TO  ED 


DISPLAY  data  (ED)  converted  to  COMP-3 


PACK 


1FC(4, 13) ,007(3,6)  COMP-3  addition  executed  in  work  field 


Result  moved  from  work  field  to  DIS 
PLAY  data  field  (ED) 


UNPK  000(5,6) ,1FC(4,13) 


COMPUTATIONAL- 3 TO  COMPUTATIONAL- 3 


ADD  PACK1  TO  PACK2 


AP  017(3, 6), 014(3, 6) 


COMP-3  additional  executed  in  data  fields 
(PACK1  and  PACK2).  Result  stored  in 
PACK2. 


COMPUTATIONAL  TO  COMPUTATIONAL- 3 


ADD  BIN  TO  PACK 


MVC  200(2, 13), 005(6) 


COMP  data  (BIN)  moved  to  work  field 


COMP  work  field  aligned  in  2nd  work 
field 


COMP  data  in  work  field  converted  to 
COMP- 3 


007(3,6) ,1FD(3, 13) 


COMP-3  addition  executed  in  COMP-3 
data  field  (PACK).  Result  remains 
in  COMP-3  data  field  (PACK). 
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2.7.1  DATA  FORMAT  CONSIDERATIONS.  (Cont.) 

f . NUMERIC  DISPLAY  TO  COMPUTATIONAL- 3. 
ADD  ED  TO  PACK. 


PACK  1F8(8,13) ,000(5,6) 
AP 


DISPLAY  data  (ED)  converted  to  COMP-3 

COMP-3  addition  executed  in 
COMP-3  data  field  (PACK). 

Result  remains  in  COMP- 3 data  field 
(PACK) . 


g.  COMPUTATIONAL  TO  COMPUTATIONAL. 
ADD  BIN1  TO  BIN2 . 


MVC 

200(2, 13), 01A(6) 

COMP  data 

(BIN1)  moved  to  work  field 

LH 

3,200(0,13) 

COMP  work 
field 

field  aligned  in  2nd  work 

MVC 

200(2, 13), 01C(6) 

COMP  data 

(BIN2)  moved  to  work  field 

AH 

3,200(0,13) 

COMP  addition  executed  in  work  fields  i 

STH 

3,200(0,13) 

Result  of 
field 

addition  stored  in  work 

MVC 

01C(2, 6), 200(13) 

Result  of 
field  to 

addition  moved  from  work 

COMP  data  field  (BIN2) 
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2.7.1  DATA  FORMAT  CONSIDERATIONS.  (Cont.) 

h.  COMPUTATIONAL- 3 TO  COMPUTATIONAL. 
ADD  PACK  TO  BIN. 


ZAP 

1F8(8, 13), 007(3,6) 

COMP- 3 data  moved  to  work 

field 

1 

CVB 

3,1F8(013) 

COMP-3  data  in  work  field 
to  COMP 

converted 

MVH 

200(2, 13), 005(6) 

COMP  data  field  aligned  in 

work 

field  I 

AH 

3,200(013) 

COMP  addition  executed  in 
fields 

COMP  work 

STH 

3,200(0,13) 

COMP  result  data  stored  in 

work 

field 

MVC 

005(2, 6), 200(13) 

Result  moved  to  COMP  data 

field 

(BIN). 

i.  NUMERIC  DISPLAY  TO  COMPUTATIONAL. 
ADD  ED  TO  BIN. 


PACK 

1F0(8, 13) ,000(5,6) 

DISPLAY  data  (ED)  converted  to  COMP-3 

i CVB 

3, 1F0(0,13) 

COMP-3  data  converted  to  COMP 

MVC 

200, (2, 13), 005(6) 

COMP  data  (BIN)  moved  to  work  field 

AH 

3,200(0,13) 

COMP  addition  executed  in  work  field 

STH 

3,200(013) 

RESULT  of  addition  stored  in  work 
field 

MVC 

005(2, 6), 200(13) 

RESULT  of  addition  moved  from  work 
field  to  COMP  field  (BIN). 
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2.7.1  DATA  FORMAT  CONSIDERATIONS.  (Cont.) 
j.  OVERSIZE  COMP  ITEMS. 

For  COMP  items  with  field  sizes  greater  than  9 digits 
(oversize  COMP  items),  additional  conversions  must  be  made  when 
working  with  arithmetic  operations.  All  operands  are  internally 
converted  to  COMP- 3 data  in  work  fields.  The  operation  is  exe- 
cuted using  the  COMP-3  internal  work  fields.  The  result  is  con- 
verted to  COMP  and  transferred  to  the  appropriate  operand.  This 
is  very  costly  in  execution  time  and  main  storage  requirements. 

2.  MOVE  COMPARISONS. 

The  following  chart  compares  a simple  MOVE  operation  as 
executed  in  all  of  the  possible  combinations  of  the  three  data 
formats.  (Refer  to  FIGURE  2-60.) 


Number  of 

Instructions 

Generated 


Amount  of 
Code 

Generated 
Bvtes 


FIGURE  2-60 


•'•Sts 
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2.7.1  DATA  FORMAT  CONSIDERATIONS.  (Cont.) 


a.  NUMERIC  DISPLAY  TO  COMPUTATIONAL 


MOVE  ED  TO  BIN 


COMPUTATIONAL  TO  DISPLAY 


MOVE  BIN  TO  ED 


PACK 

1F8(8,13) ,000(5,6) 

DISPLAY  data  (ED)  converted  to  COMP-3 

CVB 

3,1F8(0. 13) 

COMP-3  data  converted  to  COMP 

STH 

3,200(0, 13) 

Result  of  conversion  stored  in  work 
field 

MVC 

005(2, 6), 200(13) 

Work  field  moved  to  COMP  data  field 
(BIN). 

MVC 

200(2, 13), 005(6) 

COMP  data  field  (BIN)  moved  to  work 
field 

LH 

3,200(0,13) 

Work  field  aligned  in  2nd  work  field. 

CVD 

3 ,1FB  (0,13) 

Convert  COMP  data  in  work  field  to 
DISPLAY 

UNPK 

000(5 ,6) , 1FD (3 , 13) 

COMP  work  field  converted  to  DISPLAY 
and  placed  in  DISPLAY  data  field 
(ED). 
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MVC 

200(2, 13), 005(6) 

COMP  data 

(BIN) 

moved  to  work  field 

LH 

3,200(0,13) 

COMP  work 
field 

field 

aligned  in  2nd  work 

CVD 

3,1F8(0,13) 

COMP  work 

field 

converted  to  COMP-3 

ZAP 

007(3,6), 1FD (3 , 13) 

COMP- 3 work  field  moved  to  COMP- 3 

data  field  (PACK) 


2.7.1  DATA  FORMAT  CONSIDERATIONS.  (Cont.) 

c.  COMPUTATIONAL  TO  COMPUTATIONAL- 3. 
MOVE  BIN  TO  PACK. 


d.  COMPUTATIONAL- 3 TO  COMPUTATIONAL. 
MOVE  PACK  TO  BIN. 


2-516 


ZAP 

1F8(8,13) ,007(3,6) 

COMP- 3 data  (PACK)  moved  to  work 
field 

CVB 

3,1F8(0,13) 

COMP-3  work  field  converted  to  COMP 

STH 

3,200(013) 

COMP  work  field  aligned  in  2nd  work 
f ield 

MVC 

005(2, 6), 200(13) 

COMP  work  field  moved  to  COMP  data 
field  (BIN) 

1 FEB 

79 

CSCM  18-1-1 

2.7.1 

DATA 

FORMAT  CONSIDERATIONS.  (Cont.) 

e. 

NUMERIC  DISPLAY  TO  COMPUTATIONAL- 3. 

MOVE  ED  TO  PACK. 

PACK 

1F8(8,13) ,000(5,6) 

DISPLAY  data  (F.D)  converted  to  COMP- 3 
in  work  field 

ZAP 

007(3,6) ,1FD(3, 13) 

COMP-3  work  field  moved  to  COMP-3 
data  field  (PACK) 

COMPUTATIONAL- 3 TO  NUMERIC  DISPLAY 


MOVE  PACK  TO  ED 


UNPK  000(5,6) ,007(3,6) 


COMP-3  data  (PACK)  is  converted  to 
DISPLAY  and  placed  in  the  DISPLAY 
data  field  (ED) 


V 

I — 


OVERSIZE  COMP  ITEMS. 


For  COMP  items  with  field  sizes  greater  than  9 digits 
(oversize  COMP  items),  additional  conversions  must  be  made  when 
working  with  moving  operations.  All  operands  are  internally  con- 
verted to  COMP-3  data  in  work  fields.  The  operation  is  executed 
using  the  COMP-3  internal  work  fields.  The  result  is  converted 
to  COMP  and  transferred  to  the  appropriate  operand.  This  is  very 
costly  in  execution  time  and  main  storage  requirements. 


2-517 
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2.7.1  DATA  FORMAT  CONSIDERATIONS.  (Cont.) 

3.  DATA  COMPARISONS. 

The  following  chart  compares  a simple  IF  condition  exe- 
cuted in  all  possible  combinations  of  the  three  data  formats. 
(Refer  to  FIGURE  2-61.) 


DATA-NAME-1 

DATA- NAME- 2 

Number 

Instructions 

Generated 

Amount  of 

Code 

inerated 

(Bytes) 

DISPLAY 

COMP  , 

6 

26 

COMP- 3 

DISPLAY 

4 

18 

ALPHANUMERIC 

ALPHANUMERIC 

3 

12 

COMP- 3 

COMP- 3 

3 

12 

DISPLAY 

DISPLAY 

5 

24 

COMP 

COMP 

6 

26 
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2.7.1  DATA  FORMAT  CONSIDERATIONS.  (Cont.) 


NUMERIC  DISPLAY  TO  COMPUTATIONAL 


IF  ED  IS  EQUAL  TO  BIN 


COMPUTATIONAL- 3 TO  DISPLAY 


IF  PACK  IS  EQUAL  TO 


PACK 

1F8(8, 13), 000(5,6) 

DISPLAY  data  (ED)  converted  to 

COMP- 3 in  work  field 

CVB 

3,1F8(0,13) 

COMP- 3 work  field  converted  to  COMP 

MVC 

200(2, 13), 005(6) 

COMP  data  (BIN)  aligned  in  work  field 

CH 

3,200(0,13) 

COMP  comparison  made  of  work  fields 

PACK 

1F8(9,13) ,000(5,6) 

DISPLAY  data  (ED) 

converted  to  COMP-3 

in  work  field 

CP 

007 (3,6) , 1FD(3,13) 

COMP- 3 comparison 

is  made  between 

work  field  and 

COMP-3  data  field 

(PACK) . 
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2.7.1  DATA  FORMAT  CONSIDERATIONS.  (Cont.) 

c.  ALPHANUMERIC  TO  ALPHANUMERIC. 

IF  AN1  IS  EQUAL  TO  AN 2 
GO  TO  ... 


CLC  01E(5,6) ,023(6)  DISPLAY  compare  directly  between 

ALPHANUMERIC  data  items  (AN1) 
and  ALPHANUMERIC  data  items  (AN2) 


d.  COMPUTATIONAL- 3 TO  COMPUTATIONAL- 3. 


IF  PACK1  IS  EQUAL  TO  PACK2 
GO  TO  ... 


CP  014(3,6) ,017(3,6)  COMP-3  comparison  made  directly  between 

data  fields  (PACK1  and  PACK2 ) 


e.  NUMERIC  DISPLAY  TO  NUMERIC  DISPLAY. 

IF  EDI  IS  EQUAL  TO  ED2 
GO  TO  ... 


PACK 

1F8(8,13) ,00(5,6) 

DISPLAY  data  (EDI)  converted  to 

COMP- 3 in  work  field 

PACK 

1F0(8 , 13) ,00F (5,6) 

DISPLAY  data  (ED2)  converted  to  • 

COMP- 3 in  work  field 

CP 

1FD(3,13),1F5(3,13) 

COMP-3  compare  made  In  work  fields 

2-520 


o 

o 
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2.7.1  DATA  FORMAT  CONSIDERATIONS.  (Cont.) 


f.  COMPUTATIONAL  TO  COMPUTATIONAL 


IF  BIN1  IS  EQUAL  TO  BIN2 


200(2, x3),01A(6) 


COMP  data  (BIN1)  moved  to  work  field 


COMP  work  field  aligned  in  2nd  work 
field 


210, (2, 13), 010(6)  COMP  data  (BIN2)  moved  to  work  field 


COMP  comparison  is  mode  of  work  fields 


OVERSIZE  COMP  ITEMS 


For  COMP  items  with  field  sizes  greater  than  9 digits 
(oversize  COMP  items),  additional  conversions  must  be  made  when 
working  with  comparison  operations.  All  operands  are  internally 
converted  to  COMP- 3 data  in  work  fields.  The  operation  is  exe- 
cuted using  the  COMP-3  internal  work  fields.  The  result  is  con- 
verted to  COMP  and  transferred  to  the  appropriate  operand.  This 
is  very  costly  in  execution  time  and  main  storage  requirements. 


4.  Suggestions  for  working  with  numeric  data  fields 


a.  Convert  fields  of  present  data  files  requiring 
arithmetic  operations  to  COMP- 3 format. 


b.  Study  the  decimal  requirements  of  your  present  file 
then  align  the  decimals  of  related  fields  on  the  converted  data 
file. 


c.  Avoid  mixed  modes.  Move  frequently-used  numeric 
DISPLAY  fields  to  work  fields  defined  as  COMP  or  COMP-3  to  avoid 
multiple  conversions. 
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2.7.1  DATA  FORMAT  CONSIDERATIONS.  (Cont.) 

d.  Specify  COMP-3  fields  with  an  odd  number  of  digits 

e.  When  the  number  of  digits  exceeds  8,  COMP-3  usage 
is  recommended. 

f.  Arithmetic  fields  that  require  extensive  print 
editing  will  save  core  if  they  are  defined  as  COMP-3. 

g.  Write  literals  with  the  same  number  of  decimal 
positions  as  the  receiving  field. 

h.  Specify  a sign  with  the  picture,  except  when  the 
sign  is  specifically  unwanted. 

i.  COMP  processing  should  only  be  used  for  whole 

numbers . 


j.  Literals  should  be  used  when  possible. 
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2.7.2  DATA  ITEM  CONSIDERATIONS. 

PREFIXING. 

• GENERIC  CONCEPTS. 

Readability  and  transferability  of  programs  are  greatly 
enhanced  if  the  data-names  referenced  are  meaningful.  The 
recomnended  technique  for  making  these  data-names  more  meaningful 
is  as  follows:  (Note  this  technique  is  compatible  with  the 
standard  names  assigned  in  the  CSC  Data  Element  Dictionary.) 

File  and  Sort  Description  (FD/SD)  Record  Entries.  Refer 
to  the  CSC  GUIDELINES  under  the  FILE  SECTION  of  this  manual  for 
CSC  prefixing  rules. 

WORKING-STORAGE  SECTION  entries.  Refer  to  the  CSC 
GUIDELINES  under  the  WORKING- STORAGE  SECTION  of  this  manual. 

LINKAGE-SECTION  entries.  Refer  to  the  CSC  GUIDELINES 
under  the  LINKAGE-SECTION  of  this  manual. 

The  data  element  definitions  (such  as  DATE)  are  defined  in 
most  cases  in  the  file  descriptions  copied  from  the  DATA  ELEMENT 
DICTIONARY.  These  descriptions  should  be  perpetuated  with  unique 
prefixes  in  those  programer-def ined  records  which  are  not  copied 
(i.e.,  WORKING-STORAGE  SECTION  entries). 

REDEFINES  CLAUSE. 

• GENERIC  CONCEPTS. 

The  REDEFINES  clause  is  an  excellent  COBOL  tool  for 
reducing  main  storage  requirements.  Two  basic  applications  for 
the  REDEFINES  clause  are  the  reuse  of  the  same  data  area  for 
different  records  and  the  redefinition  of  elements  within  a single 
record . 


1.  Reuse  of  data  areas:  The  main  storage  area  can  be 
used  more  efficiently  by  writing  different  data  descriptions  for 
the  same  data  area.  The  following  example  shows  how  the  same 
work  area  can  be  used  to  define  several  different  records  which 
are  not  processed  concurrently. 
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2.7.2  DATA  ITEM  CONSIDERATIONS.  (Cont.) 


WORKING-STORAGE  SECTION. 

01  WS-WORK-FILE1 . 

03  WS-WORK-FILE1-DATA. 

. (largest  file  description  for  FILE1) 


01  WS-WORK-FILE2  REDEFINES  WS-WORK-FILE1. 
03  WS-WORK-FILE2-DATA. 

. (largest  file  description  for  FILE2) 


2.  Redefinitions  of  subfields:  Program  data  can  often  be 
described  more  efficiently  by  providing  alternate  groupings  of 
data  descriptions  for  the  same  data.  For  example,  a program  may 
refer  to  both  a field  and  its  subfields  each  of  which  is  more 
efficiently  described  with  a different  usage. 


01  MSTR-DATE1 

PIC  S9 (5) . 

01  MSTR-DATE2E2 

REDEFINES  MSTR-DATE 1 . 

03  MSTR-YR-NUM 

PIC  S99. 

03  MSTR-DAY-NUM 

PIC  S999. 

01  MSTR-DATE3 

REDEFINES  MSTR-DATE1. 

03  MSTR-YR- ALPHA 

PIC  XX. 

03  MSTR-DAY-ALPHA 

PIC  XXX. 

in 
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2.7.2  DATA  ITEM  CONSIDERATIONS.  (Cont.) 

While  the  REDEFINES  clause  represents  a useful  tool, 
indiscriminate  use  of  this  clause  should  be  avoided.  Hierar- 
chical, or  nested,  REDEFINES  are  often  ambiguous  and  frequently 
misinterpreted . 

For  numeric  data  items,  there  is  no  savings  in  machine 
efficiency  using  any  one  technique.  However,  for  better  reada- 
bility, literals  used  should  correspond  to  the  PICTURE  of  the 
data  item  being  initialized. 


77  WS-FLD2 

PIC  S9V99. 

MOVE  +1.00  TO  WS-FLD2. 

Group  data  items  can  also  be  initialized  in  both  the  DATA 
DIVISION  and  PROCEDURE  DIVISION. 


1 . In  the  DATA  DIVISION  group  items  can  be  initialized 
either  at  the  group  level  or  each  elementary  item  within  the 
group  may  be  initialized  separately.  By  the  use  of  the  REDEFINES 
clause,  the  group  item  can  be  redefined  as  an  elementary  item. 
This  is  especially  effective  for  initializing  numeric  fields  and 
tables.  For  example: 


* Jfcfra! 
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2.7.2  DATA  ITEM  CONSIDERATIONS.  (Cont.) 


WORKING-STORAGE  SECTION. 

01  WS-MESSAGE- TABLE. 

03  FILLER 

PIC  X(16)  VALUE  ' 00 1ADD  MASTER. .'. 

03  FILLER 

PIC  X(16)  VALUE  '002CHANGE  MASTER' . 

03  FILLER 

PIC  X(16)  VALUE  '003DELETE  MASTER' . 

03  FILLER 

PIC  X(16)  VALUE  '/  /INVALID  ADD  ’. 

01  WS-MESSAGE- TABLE- R REDEFINES  WS-MESSAGE-TABLE. 

03  WS-TAB-ITEM  OCCURS  20  TIMES. 

05  WS-TAB-KEY 

PIC  XXX. 

05  WS-TAB- IN-CLEAR 

PIC  X(13)  . 

PROCEDURE  DIVISION. 

0010-AA-MATCH-MASTER . 

IF  IN-TRANS-KEY  IS 

EQUAL  TO  IN-MASTER-KEY 

MOVE  '020'  TO  WS 

-STORE-ERR 

GO  TO  0020-AZ-MATCH-EXIT . 

00 30 -WA- ERROR-REPORT . 

MOVE  WS-TAB- IN-CLEAR  (WS-STORE-ERR)  TO  WS-REP-ERR-LINE . 

• 
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2.7.2  DATA  ITEM  CONSIDERATIONS.  (Cont.) 


2.  Data  fields  can  be  initialized  in  the  PROCEDURE 
DIVISION  using  statements  such  as  the  following: 


MOVE  SPACES  TO  WS- WORK- DATA- 2. 


MOVE  +99999  TO  JUL-DATE-2. 


Additional  techniques  for  initializing  tables  are  explored 
under  TABLE  HANDLING  TECHNIQUES. 


DECIMAL-POINT  ALIGNMENT. 


• GENERIC  CONCEPTS . 


PROCEDURE  DIVISION  operations  are  most  efficient  when  the 
decimal  positions  of  the  data  items  involved  are  aligned.  If 
they  are  not  aligned,  the  compiler  generates  instructions  to 
align  the  decimal  positions  before  any  operations  involving  the 
data  items  can  be  executed.  This  is  referred  to  as  scaling. 


An  example  of  inefficient  coding  due  to  decimal  alignment: 


WORKING-STORAGE  SECTION 
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2.7.2  DATA  ITEM  CONSIDERATIONS.  (Cont.) 

This  is  inefficient  because  WS-B  must  be  internally 
aligned  so  that  it  contains  the  same  number  of  decimal  positions 
as  WS-A.  This  requires  more  compiler-generated  coding  and  inter- 
nal work  areas. 

Both  time  and  internal  storage  space  can  be  saved  by 
defining  WS-B  as: 


If  it  is  not  feasible  to  define  WS-B  in  this  manner,  a 
one-time  conversion  might  be  done  to  an  aligned  work  area  in  the 
program. 

Literal  values  assigned  to  a data  item  should  correspond 
in  decimal  alignment. 


FIELD  INITIALIZATION. 

• GENERIC  CONCEPTS. 

For  readability,  maintainability  and  as  a debugging  aid, 
data  fields  in  a program  should  be  initialized  to  a value  prior 
to  their  use.  Initialization  of  data  fields  is  a function  of  both 
the  data  description  and  PROCEDURE  DIVISION  statements.  The  data 
item  can  be  Initialized  using  either  the  VALUE  clause  or  by  devel- 
oping the  value  during  the  execution  of  the  program. 


1 


0 
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Elementary  data  items  can  be  initialized  using  the 
following  techniques: 


1.  In  the  DATA  DIVISION,  the  VALUE  clause  using  a literal 
or  figurative  constant  can  be  used. 


2.  In  the  PROCEDURE  DIVISION,  literals,  figurative  con- 
stants, or  pre-initialized  data  names  may  be  moved  to  a field  to 
initialize  it. 


For  alphanumeric  items,  the  use  of  the  literal  or  pre- 
initialized data-name  is  generally  preferred  to  the  use  of  a 
figurative  constant.  The  use  of  a figurative  constant  causes 
extra  coding  to  be  generated  to  convert  it  to  the  size  and  format 
of  the  data  item  being  initialized.  However,  if  the  item  is 
exceptionally  large,  the  use  of  the  figurative  constant  may  make 
the  statement  more  readable  and  more  maintainable. 


77  WS-F lD2  PTC  X(5)  VALUE  SPACE 


77 

WS-A 

PIC  X 

VALUE 

» t 

77 

WS-B 

PIC  X 

VALUE 

SPACE. 

77 

WS-C 

PIC  S9 

VALUE 

+1. 

77 

WS-D 

PIC  S9 

VALUE 

ZERO. 
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The  following  techniques  are  recommended  for  initializing 

FLD1 . 


MOVE  ' ' to  WS-FLD1 . 

MOVE  WS-FLD2  TO  WS-FLD1. 


However,  if  WS-FLD1  was  defined  with  a PICTURE  X(5(J0),  it 
would  be  better  to  initialize  it  this  way: 


MOVE  SPACES  TO  WS-FLD1. 


EDITING. 

• GENERIC  CONCEPTS. 

For  efficient  object  program  execution  the  following 
editing  characters  should  be  avoided,  if  at  all  possible: 

1.  DB. 

2.  + (plus  sign). 

3.  - (floating  minus  sign). 

When  the  currency  sign  ($)  or  check  protection  (*)  symbols 
are  specified,  the  rightmost  $ or  * should  be  preceded  by  the  same 
character  rather  than  by  an  insertion  character.  A PICTURE  of 
$$$,999.99  is  more  efficient  than  $$$,$99.99. 

A rightmost  Z should  not  be  preceded  by  a $. 

BLANK  WHEN  ZERO  should  be  avoided. 
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The  insertion  character  0 should  be  used  only  in  the 
leftmost  character  positions.  Additional  coding  is  generated  for 
the  execution  of  a MOVE  statement  when  0 is  placed  in  other  char- 
acter positions.  For  example,  a PICTURE  of  000,999.99  is  more 
efficient  than  +++,000,999.99. 

QUALIFICATION. 

• GENERIC  CONCEPTS. 

Qualification  of  data  names  is  not  allowed.  The  use  of 
unique  data  names  is  much  more  readable  and  less  confusing.  This 
makes  program  maintenance  much  easier.  The  careful  use  of  pre- 
fixing makes  qualification  unnecessary.  Like  data  items  can  be 
described  the  same  way  with  only  the  prefix  being  different. 

For  example,  these  two  descriptions: 


JUL-DATE  OF  MASTER 
JUL-DATE  OF  TRANS 


can  be  just  as  easily  and  much  more  clearly  defined  as: 


MSTR-JUL-DATE 

TRANS-JUL-DATE 


USE  OF  SIGNS. 

• GENERIC  CONCEPTS . 


The  absence  or  presence  of  a plus  or  minus  sign  in  the 
description  of  an  arithmetic  field  often  can  affect  the  efficiency 
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of  a program.  The  degree  to  which  the  program  is  affected  depends 
on  the  internal  representation  of  numeric  data  items  by  a partic- 
ular vendor. 

A plus  or  minus  sign:  If  'S'  is  specified  in  the  PICTURE 
clause,  a plus  or  minus  sign  is  inserted  in  one  of  two  ways:  the 
item  is  in  WORKING-STORAGE  and  has  had  a VALUE  clause  specified 
or  a value  has  been  assigned  as  a result  of  PROCEDURE  DIVISION 
operations  (such  as,  arithmetic  operations,  MOVE  instructions, 
etc.)  during  the  execution  of  the  program. 

For  numeric  DISPLAY  items,  the  presence  of  a plus  or 
minus  sign  has  special  considerations  if  the  field  is  punched, 
printed  or  displayed.  If  any  of  these  operations  occur,  the  sign 
digit  is  output  with  an  overpunch  in  the  low-order  output  digit. 
This  results  in  representations: 

1.  Low-order  digits  of  positive  values  will  be  repre- 
sented by  one  of  the  letters  'A'  through  'I'.  These  are  the 
digits  1 through  9 with  a hexadecimal  ’C’  in  the  zone  portion  of 
the  low-order  byte. 

2.  Low-order  digits  of  negative  values  will  be  repre- 
sented by  one  of  the  letters  'J'  through  'R* . These  are  the 
digits  1 through  9 with  a hexadecimal  'D'  in  the  zone  portion  of 
the  low-order  byte. 

3.  Low-order  zeroes  in  EBCDIC  may  be  unprintable 
characters . 

• IBM  GUIDELINES. 

For  IBM’s  numeric  configurations  of  internal  or  external 
decimal  items,  the  sign  position  can  contain  a valid  plus  or  minus 
sign,  a hexadecimal  F,  or  an  invalid  configuration. 

1.  A hexadecimal  'F1:  If  'S'  is  not  specified  in  the 
PICTURE  clause,  a hexadecimal  'F'  is  inserted  in  the  sign  position 
in  one  of  two  ways:  the  item  is  in  WORKING-STORAGE  and  has  had  a 
VALUE  clause  specified  or  a value  has  been  developed  during  the 
execution  of  a program.  The  'F'  is  treated  as  being  positive  but 
does  not  cause  an  overpunch  when  printed,  punched  or  displayed. 
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2.  An  Invalid  configuration:  If  an  internal  or  external 
decimal  item  contains  an  invalid  configuration  in  the  sign  posi- 
tion, and  the  item  is  used  in  a PROCEDURE  DIVISION  operation,  the 
program  will  abnormally  terminate. 

a.  Unsigned  items  (no  'S'  has  been  specified  in  the 
PICTURE  clause)  are  treated  as  absolute  values.  Whenever  a value 
(signed  or  unsigned)  is  stored  in  or  moved  in  an  elementary  move 
to  an  unsigned  item,  a hexadecimal  'F'  is  stored  in  the  sign 
position  of  the  unsigned  item. 

For  example,  an  arithmetic  operation  involving 
signed  operands  and  an  unsigned  result  field  will  result  in  a 
hexadecimal  'F'  being  placed  in  the  sign  position  of  the  result 
field. 


Note  that  extra  code  is  always  generated  to  erase 
the  existing  sign  and  place  a hexadecimal  'F'  in  the  sign  field 
for  unsigned  items.  Therefore,  it  is  important  to  use  an  'S'  in 
the  PICTURE  clause  for  numeric  items  except  when  there  is  a vital 
well-defined  reason  not  to  do  so. 

b.  For  interna]  and  external  decimal  items  used  as 
input,  it  is  the  user's  responsibility  to  ensure  that  the  input 
data  is  valid.  The  compiler  does  not  test  the  sign  position  for 
validity . 


c.  When  a group  item  is  involved  in  a MOVE,  the  data 
is  moved  alphanumerically  without  regard  to  the  level  structure 
of  the  group  items  involved.  It  is  possible  for  the  sign  position 
of  a subordinate  numeric  item  to  be  destroyed.  Therefore,  caution 
should  be  exercised  in  moves  involving  group  items  with  sub- 
ordinate numeric  fields  or  with  other  group  operations  such  as 
READ  or  ACCEPT. 

DISPLAY  ITEMS  - NUMERIC  VS  ALPHANUMERIC. 

• GENERIC  CONCEPTS. 

The  relative  value  of  defining  DISPLAY  fields  in  a pro- 
gram as  numeric  or  alphanumeric  is  totally  vendor-oriented. 
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IBM  GUIDELINES 


If  a numeric  DISPLAY  field  is  not  to  be  used  for  computa- 
tions or  in  an  operation  requiring  it  to  be  in  numeric  format,  it 
is  more  efficient  to  define  this  field  as  alphanumeric. 


1.  The  use  of  a numeric  PICTURE  for  DISPLAY  fields  for 
comparisons  with  literals,  figurative  constants  or  alphanumeric 
fields  is  very  inefficient  because  of  the  extra  coding  that  is 
generated  to  make  a numeric  comparison.  Every  time  the  field  is 
interrogated,  the  data  in  that  field  is  converted  to  packed 
decimal  and  a packed  decimal  comparison  is  made.  This  requires 
not  only  extra  coding  which  results  in  increased  execution  time 
but  also  additional  main  storage  for  the  Internal  work  areas 
which  are  generated. 


2.  The  use  of  an  alphanumeric  PICTURE  produces  a simple 
compare  instruction  with  no  intermediate  work  area. 


These  techniques  are  especially  applicable  to  program 


_ _ _ . _ . 
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2.7.3  PROCEDURE  DIVISION  TECHNIQUES. 

2.7.3. 1 Paragraph  Naming.  Paragraph  naming  conventions  can 
increase  the  readability  and  intelligibility  of  programs;  they 
can  make  it  easier  and  faster  to  scan  a program,  to  find  para- 
graphs or  sections.  Subroutine  paragraph  names  will  be  prefixed 
by  a A digit  numeric. 

2. 7. 3. 2 File  Processing. 

OPEN  AND  CLOSE  ROUTINES. 

• GENERIC  CONCEPTS. 

When  multiple  files  are  to  be  processed  in  a program,  a 
determination  must  be  made  as  to  which  savings  is  more  important  - 
processing  time  or  main  memory. 

Each  OPEN  or  CLOSE  statement  for  a file  requires  the  use 
of  a storage  area  that  is  directly  proportional  to  the  number  of 
files  being  opened  or  closed. 

Opening  or  closing  more  than  one  file  with  the  same  state- 
ment is  faster  than  using  a separate  statement  for  each  file. 

OPEN  INPUT  FILE1  FILE2  . . . 


i 

j 

\ 


j ] 

I 1 
1 


Separate  statements,  however,  require  less  storage. 


OPEN  INPUT  FILE1 . 
OPEN  INPUT  FILE2 . 


Unless  core  storage  is  exceedingly  limited,  it  is  recom- 
mended that  all  opening  and  closing  of  files  be  done  in  parallel 
rather  than  separate  statements. 

When  possible,  all  files  should  be  opened  at  the  same 
time  and  closed  at  the  same  time.  This  helps  prevent  abending  by 
trying  to  opei  a file  which  is  already  opened  or  closing  a file 
which  is  already  closed. 
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REWRITE. 

• GENERIC  CONCEPTS. 

This  verb  is  only  applicable  for  certain  vendors. 

• IBM  GUIDELINES. 

For  mass  storage  files  which  require  only  minor  updating 
the  REWRITE  statement  is  a useful  technique. 

The  file  must  be  opened  in  the  1-0  mode  and  a READ  must 
be  executed  for  each  record  before  it  is  rewritten. 

The  use  of  this  term  requires  only  one  storage  allocation 
for  the  file.  The  file  is  read  and  written  on  the  same  physical 
location. 


The  REWRITE  statement  must  be  used  with  caution  since  the 
original  record  is  not  available  after  its  execution.  The  user 
must  provide  some  form  of  backup  capability  for  files  that  are 
being  rewritten. 
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IF  NUMERIC  TESTS. 

• GENERIC  CONCEPTS. 

When  the  IF  statement  is  being  used  to  determine  if  a 
field  is  NUMERIC  and  the  last  character  of  an  otherwise  numeric 
field  contains  a valid  signed  digit,  the  field  is  considered 
numeric. 

• IBM  GUIDELINES. 

For  the  IBM  system  360,  a valid  sign  is  a hexadecimal  'C', 
'D',  or  'F'.  However,  the  numeric  test  result  depends  upon  the 
description  of  the  data  item  being  tested. 

1.  If  a data  item  is  defined  as  a signed  numeric  field 
(S999) , a valid  sign  can  be  a hexadecimal  'C',  'D'  or  'F'. 

2.  If  a data  item  is  defined  as  an  unsigned  numeric  field 
(999),  the  only  valid  sign  is  a hexadecimal  'F'. 

3.  Note  that  it  is  important  to  be  aware  of  the  data 
description  used  when  testing  numeric  fields. 

IF  STATEMENT  OPTIONS. 

• GENERIC  CONCEPTS. 

There  are  two  options  available  for  use  of  the  IF 
STATEMENT  - NEXT  SENTENCE  and  ELSE. 

The  NEXT  SENTENCE  clause  is  usually  redundant,  generates 
unnecessary  object  coding  and  should  be  avoided.  For  example, 
the  statement, 


IF  A IS  EQUAL  TO  A NEXT  SENTENCE 
ELSE  ADD  A TO  B. 
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can  be  written  more  clearly  as: 


IF  A IS  NOT  EQUAL  TO  B 
ADD  A TO  B. 


IF  STATEMENT  EFFICIENCY 


• GENERIC  CONCEPTS. 

Several  abuses  can  arise  in  using  the  IF  statement. 
These  should  be  avoided: 

1.  Abbreviated  forms  of  the  IF  statement. 

2.  Use  of  complex  conditional  statements. 

3.  Inefficient  logic. 


This  example  results  in  main  storage  and  execution  time  savings. 


ELSE.  When  ELSE  is  used  in  an  IF  conditional  statement, 
it  should  be  positioned  so  that  it  is  easily  recognized.  A 
suggested  format  is: 


■■■ 


IF  DATA-FIELD-A  IS  EQUAL  TO  DATA-FIELD-B 
PERFORM  SUBROUTINE-A 

ELSE 

PERFORM  SUBROUTINE-B. 
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4.  Nested  IF  statements  with  more  than  3 levels. 

5.  Combinations  of  the  above. 

Abbreviated  forms  of  the  IF  STATEMENT. 


I 


The  COBOL  structure  can  violate  the  normal,  English- 
language  logic  of  connectives.  An  IF  statement  in  which  the 
subject  is  implied  may  read: 


The  Implied  meaning  is: 


ft 

l 

i 

' 

! 


Confusion  arises  when  a programer  uses  the  following  con- 
struct in  which  the  subject  and  relational  operand  are  implied: 


ft* 
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Although  its  intended  meaning  may  be: 


IF  T-TOTAL  IS  NOT  EQUAL  TO  05 

AND  T-TOTAL  IS  NOT  EQUAL  TO  10 
AND  T-TOTAL  IS  NOT  EQUAL  TO  ZEROS 
GO  TO  0020-PARA-B . 




Its  actual  meaning  is: 


IF  T-TOTAL  IS  NOT  EQUAL  TO  05 
OR  T-TOTAL  IS  EQUAL  TO  10 
OR  T-TOTAL  IS  EQUAL  TO  ZEROS 
GO  TO  0020-PARA-B. 


Obviously  the  programer  won't  be  getting  the  object  coding  he 
expects.  If  confusion  can  arise  from  simple  constructs,  the 
confusion  resulting  from  more  complex  const)  icts  increases  geo- 
metrically. Therefore,  it  pays  off  for  programers  to  spell  out 
IF  statements  completely. 

Complex  Conditional  Stat emen t s . 

Even  when  IF  statements  are  fully  written  out,  errors  can 
result  from  using  complex  conditional  statements.  For  example: 
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IF  ONE-TOTAL  IS  EQUAL  TO  1 

AND  TWO  TOTAL  IS  EQUAL  TO  1 
OR  TWO-TOTAL  IS  EQUAL  TO  2 
GO  TO  0010-PARA-A. 


In  order  for  the  relational  tests  of  TWO-TOTAL  to  be 
considered  as  a unit  it  must  be  parenthesized: 


IF  ONE-TOTAL  IS  EQUAL  TO  1 

AND  (TWO-TOTAL  IS  EQUAL  TO  1 
OR  TWO-TOTAL  IS  EQUAL  TO  2) 
GO  TO  0010-PARA-A. 


Thus  at  the  very  least,  such  conditionals  should  be 
parenthesized  and  laid  out  for  the  best  visual  clarity  by  using 
the  CSC  standard  formatting  as  shown  above.  But  obviously  the 
best  solution  is  to  avoid  such  complex  conditional  IFs  in  favor 
of  simple  conditional  statements. 


1.  The  logic  involved  in  an  IF  statement  can  sometimes 
be  reversed  and  result  in  clearer  coding. 
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2.  When  testing  for  a value,  the  most  likely  occurrence 


should  be  tested  first.  The  next  most  likely  occurrence  should  be 
tested  second.  The  next  most  likely  should  be  tested  next,  etc. 


Nested  IF  Statements. 

Stringing  IF  statements  together  represents  the  most  con- 
fusing and  most  difficult  to  maintain  use  of  this  statement. 
Because  of  this,  CSC  Standards  do  not  allow  the  use  of  more  than  3 
levels  of  nested  IF  statements. 
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ADDITION  AND  SUBTRACTION 


• GENERIC  CONCEPTS 


The  most  efficient  ADD  and  SUBTRACT  statements  are 


ADD  data-name-1  TO  data-name-2 
SUBTRACT  data-name-1  FROM  data-name-2 

Where  the  decimal  point  scaling  of  data-name-1  is  identical 
to  that  of  data-name-2. 


Less  efficient  object  coding  is  produced  when  the  pro- 
gramer  uses  operands  with  different  decimal  point  scaling  with  the 
GIVING,  ROUNDED  or  ON  SIZE  ERROR  option.  However,  this  should 
not  preclude  the  programer  from  using  ON  SIZE  ERROR,  ROUNDED  and 
GIVING  when  he  determines  their  necessity.  Use  of  these  terms 
may  make  the  program  more  maintainable  and  this  should  be  weighed 
before  dismissing  their  use. 


MULTIPLICATION 


• GENERIC  CONCEPTS 


The  multiplication  of  a numeric  DISPLAY  field  by  a power 
of  10  (.1,  10,  100,  1000,  etc.)  should  be  avoided.  The  same 
results  can  be  obtained  by  redefining  the  field. 


05  FI ELD A 

PICTURE  S9(5)V99. 

MULTIPLY  100  BY  FIELDA. 
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The  example  on  the  previous  page  can  be  accomplished  by 
redefinition  which  will  result  in  a savings  in  main  storage  and 
execution  time. 


05  FIEI.DB  REDEFINES  FIELDA  PICTURE  S9(7). 


ON  SIZE  ERROR. 

• GENERIC  CONCEPTS. 

The  ON  SIZE  ERROR  is  used  with  arithmetic  operations.  It 
occurs  when  the  defined  size  of  the  result  data  field  is  smaller 
than  the  calculated  result,  or  when  the  divisor  is  zero.  The 
final  result  will  not  be  accurate. 

1.  If  the  ON  SIZE  ERROR  option  is  specified  and  a size 
error  condition  occurs,  the  resultant  data-name  is  not  altered  and 
the  series  of  imperative  statements  specified  for  the  condition 
is  executed. 


2.  The  values  involved  in  the  arithmetic  may  be  tested 
for  limits  if  a size  error  condition  is  possible. 

3.  A test  for  a zero  divisor  should  be  made  before 
dividing. 

Size  error  conditions  are  possible  when  the  operands 
involved  in  an  arithmetic  operation  contain  the  maximum  value 
allowable  in  a data  description  and  the  resultant  field  is  not 
defined  to  contain  the  maximum  allowable  result. 

• IBM  GUIDELINES. 

The  ON  SIZE  ERROR  condition  applies  only  to  final  results. 
It  does  not  apply  to  Intermediate  results. 
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( 

INTERMEDIATE  RESULTS. 

• GENERIC  CONCEPTS. 

Compilers  treat  arithmetic  statements  as  a series  of 
operations  and  set  up  intermediate  result  fields  to  contain  the 
results  of  these  operations.  The  internal  code  generated  and  the 
size  and  description  of  these  intermediate  fields  are  different 
for  each  vendor. 

• IBM  GUIDELINES. 

The  intermediate  result  fields  generated  by  the  IBM  com- 
piler depend  upon  the  usage  of  the  data  items  involved  and  the 
arithmetic  statement  being  executed. 

Binary  Data  Items. 

If  an  operation  with  binary  operands  requires  an  inter- 
mediate result  of  greater  than  18  digits,  the  compiler  converts 
the  operands  to  internal  decimal  before  performing  the  operation. 
If  the  result  is  a binary  field,  the  calculated  result  will  be 
converted  from  internal  decimal  to  binary. 

If  an  intermediate  result  will  not  be  greater  than  9 
digits,  binary  data  fields  are  not  converted.  The  operation  is 
much  more  efficiently  performed  using  binary  data  if  no  con- 
versions are  required. 

Multiplication. 

If  a decimal  multiplication  operation  requires  an  inter- 
mediate result  greater  than  30  digits,  a COBOL  library  subroutine 
is  used  to  perform  the  operation.  The  result  is  then  truncated 
to  30  digits. 

Division. 

A COBOL  library  subroutine  is  used  for  division  when  one 
of  the  following  occurs: 

1.  The  scaled  divisor  is  equal  to  or  greater  than  15 

digits. 


o 
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2.  The  internal  decimal  length  of  the  scaled  divisor 
plus  the  Internal  decimal  length  of  the  scaled  dividend  is 
greater  than  16  bytes. 

3.  The  scaled  dividend  is  greater  than  30  digits.  (A 
scaled  dividend  is  a number  that  has  been  multiplied  by  a power 
of  ten  in  order  to  obtain  the  desired  number  of  decimal  places 
in  the  quotient.) 

Intermediate  Results  Greater  Than  30  Digits. 

When  the  number  of  digits  in  an  Intermediate  result  is 
greater  than  30,  the  field  is  truncated  to  30  digits.  A warning 
message  will  be  generated  by  the  compiler,  but  no  abend  will 
occur  during  execution.  However,  the  truncation  may  cause  an 
incorrect  result. 

OS  SIZE  ERROR. 

This  option  applies  only  to  the  final  calculated  results 
and  not  to  intermediate  result  fields.  Problems  can  arise  when 
intermediate  results  are  not  understood,  as  in  the  following 
example: 


COMPUTE  PERCNT  « (A/B)  * 100. 


If  A and  B are  defined  as  whole  numbers,  PERCNT  will  always  be 
zero  because  the  intermediate  result  will  be  truncated. 

EFFECTS  OF  SIGNS, 
o GENERIC  CONCEPTS. 

The  use  of  the  sign  field  (S)  in  the  PICTURE  clause  for  a 
numeric  data  item  is  important  when  arithmetic  operations  are 
performed  using  that  field. 
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2 . 7 . 3 . 5 Branching  Statements. 

GO  TO  STATEMENT. 

• GENERIC  CONCEPTS. 

The  GO  TO  statement  is  considered  one  of  the  primary  con- 
tributors to  the  complexity  of  computer  programs.  The  GO  TO 
when  misused,  creates  "monolithic  monsters"  and  therefore  destroys 
the  cleanliness  of  closed  subroutine  structures.  It  takes  only  a 
few  intertwined  branches  in  a program  to  exceed  an  optimum  level 
of  complexity. 

Using  PERFORM  statements  as  a structure  for  subroutining 
and  modularizing  will  significantly  reduce  the  number  of  GO  TO's 
in  a program.  However  when  the  GO  TO  is  used,  there  are  guide- 
lines which  should  be  followed. 

1.  The  object  of  the  GO  TO  should  only  be  a paragraph 
within  the  subroutine  or  module  to  which  the  GO  TO  belongs. 
Therefore,  the  programer  does  not  have  to  look  through  the 
entire  program  to  determine  the  impact  of  the  branch. 

This  guideline  also  prohibits  branching  out  of  the 
middle  of  one  subroutine  into  the  middle  of  another  one  which 
destroys  the  independence  of  the  paragraph-groups  involved. 

2.  The  GO  TO  should  only  branch  forward  in  the  program 
and  only  to  an  intermediate  paragraph  or  EXIT  paragraph  within  a 
subroutine  or  module.  Branching  backward  implies  a loop  and  the 
natural  construct  for  a loop  in  COBOL  is  the  PERFORM. . .VARYING. 

The  ideal  usage  of  GO  TO  is  the  branching  forward 
only  to  the  EXIT  paragraph  of  a paragraph-group. 

There  are  several  operational  questions  the  programer  can 
ask  himself  as  an  aid  in  structuring  a modularized,  GO  TO  free 
program. 

1.  Is  the  mainline  of  the  program  concise  and  forward- 

moving? 

2.  Are  the  mainline  paragraphs  logically  ordered? 
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2. 7. 3. 5 Branching  Statements.  (Cont.) 

3.  Are  any  transactions  bouncing  through  often  repeated 
condition-testing? 

4.  Should  the  GO  TO  statement  be  replaced  with  a 
PERFORMed  subroutine? 

5.  Are  the  subroutines  * ; *rly  modularized,  that  is, 

are  they  each  performing  one  logical  function? 

GO  TO. ..DEPENDING  ON ... STATEMENT . 

• GENERIC  CONCEPTS. 

For  less  than  3 paragraph  names,  a comparison  for  equal 
conditions  is  just  as  efficient. 

The  GO  TO. . .DEPENDING  ON  should  be  well  documented  by 
comment  entries  to  explain  what  the  values  of  the  object  of  the 
DEPENDING  ON  represent. 

The  programer  must  be  careful  when  using  this  feature. 

Its  use  can  be  economical  or  costly  in  terms  of  memory  and  run- 
time. Following  is  an  example  of  the  DEPENDING  ON  feature  used 
to  best  advantage. 

1.  Program  A is  a validation  program  accepting  five  types 
of  transactions  on  a file.  These  transactions  are  identified  by 

a three-position  code.  Program  A assigns  a number,  1 through  5, 
to  a new  field,  TRANS-CD,  which  is  included  in  the  record  written 
onto  the  output  transaction  file. 

2.  Program  B is  a master  file  update  program  which  reads 
the  transaction  file,  output  of  Program  A.  The  processing  of  each 
transaction  read  into  Program  B can  be  determined  as  follows: 
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2. 7. 3. 5 Branching  Statements.  (Cont.) 

• IBM  GUIDELINES. 

The  object  of  the  DEPENDING  ON  should  be  defined  with  a 
computational  PICTURE. 

PERFORM  STATEMENT. 

• GENERIC  CONCEPTS. 

Most  arguments  used  against  use  of  the  PERFORM  verb  say 
it  is  less  efficient  than  a GO  TO.  Taken  on  a one-to-one  basis 
PERFORM  does  require  more  machine  instructions  than  a GO  TO. 

What  is  often  overlooked  is  the  additional  coding,  such  as  IF 
statements  and  flag  settings,  it  takes  to  Implement  more  than  one 
logical  path  passing  through  in-line  coding. 

A most  important  reason  for  using  PERFORM  is  that  it  is 
one  of  the  more  powerful  tools  available  in  COBOL  for  modularity. 

A fuller  treatment  of  the  PERFORM  statement  and  its  use  in  modu- 
lar program  design  can  be  found  in  PROGRAM  DESIGN  TECHNIQUES 
paragraph. 

EXIT  STATEMENT. 

• GENERIC  CONCEPTS. 

The  EXIT  should  always  be  used  as  the  only  sentence  in 
the  last  paragraph  of  a subroutine.  This  aids  program  readability 
and  self -documentation  by  making  the  subroutine  limit  clear  to  any 
user  of  the  program. 

The  relationship  of  the  EXIT  verb  with  the  PERFORM. . .THRU 
is  shown  under  LOOP  CONTROLLING  in  PROGRAM  DESIGN  TECHNIQUES 
paragraph. 

The  return  path  of  a PERFORM  should  always  be  through  an 

EXIT. 
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2.7. 3. 6 Data  Manipulation 


FIXED-LENGTH  MOVE 


GENERIC  CONCEPTS 


The  most  efficient  MOVE  statement  for  unedited  transfers 
zero  suppression  and  alphanumeric  report  editing  is: 


MOVE  data-name-1  TO  data-name-2 


For  nonnumeric  elementary  or  group  moves,  the  size  of 
data-name-1  should  be  equal  to  or  greater  than  the  size  of 
data-name-2. 


A nonnumeric  literal  may  be  moved  more  efficiently  if 
the  literal  is  made  equal  in  size  to  the  receiving  field's  size 


For  a numeric -edited  move,  the  scaling  and  computational 
size  of  data-name-1  should  be  identifiable  with  that  of  data- 
name-2.  Computational  size  refers  to  the  maximum  number  of 
numerics  which  can  be  present  in  the  edited  item.  For  example: 


EDITING  PICTURE 

COMPUTATIONAL  SIZE 

ZZZ.ZZ 

5 

$$$.99 

4 

; — .99 

4 
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2.7.4  TABLE  HANDLING  TECHNIQUES. 

2 . 7 . 4 . 1 Table  Construction  and  Referencing. 

TABLE  STRUCTURE. 

• GENERIC  CONCEPTS. 

Tables  are  structured  in  the  WORKING-STORAGE  portion  of 
the  DATA  DIVISION  using  the  OCCURS  clause.  The  organization  of 
the  table  elements  and  their  structure  are  interrelated  with  the 
types  of  techniques  that  will  be  used  to  interrogate  the  table. 


01  WS-TAB1 . 

03  WS-TAB1-ELMT 

OCCURS  20  TIMES 

INDEXED  BY  INDEX1 

PIC  X(10) 

• IBM  GUIDELINES. 

Large  tables  (greater  than  4,095  bytes)  should  be  placed 
at  the  end  of  WORKING-STORAGE  to  avoid  having  assigned  to  them 
registers  that  would  otherwise  be  assigned  to  more  frequently 
accessed  items  (the  2nd  thru  nth  register  assigned  to  a large 
table  is  used  only  when  executing  index  expressions  composed 
entirely  of  literals). 

TABLE  REFERENCING. 

• GENERIC  CONCEPTS. 

There  are  two  techniques  for  referencing  elements  within 
a table:  subscripting  and  indexing.  Indexing  is  never  slower 
than  subscripting  and  may  be  up  to  16  times  faster. 
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2.7.4. 1 Table  Construction  and  Referencing.  (Cont.) 


I 1 


Subscripting  should  be  used  as  little  as  possible  because 
of  the  complex  conversions  g»  ’’•ated  to  convert  the  subscript 
(which  represents  an  occurrence  number  in  a table)  to  the  address 
of  the  item  being  referenced.  Therefore,  subscripts  should  never 
by  used  when  searching  a table. 


1.  However,  direct  subscripting  using  literals  or  a 
data-field  are  useful.  If  only  a direct  reference  need  be  made  to 
a known  occurrence  number  in  the  table,  a literal  subscript  is 
efficient  and  makes  the  program  more  readable. 


IF  WS-TAB-ELMT  (1)  EQUALS  SPACES 


2.  Direct  subscripting  using  a data-name  has  limited  use. 
However,  if  a data-field  contains  an  occurrence  number  (such  as  a 
data  field  in  an  input  record)  this  could  be  used  as  a one-time 
reference.  This  should  be  used  sparingly.  If  any  computations 
need  to  be  done  for  additional  referencing,  indexing  should  be 
used. 


IF  WS-TAB-ELMT  (WS-INPUT-FIELD)  EQUALS  WS-INPUT-KEY 


Indexing  is  faster  than  subscripting  because  an  index  is 
an  internal  binary  counter  which  contains  a displacement  value 
which  is  added  to  the  base  address  of  the  table  to  determine  the 
address  of  the  item  referenced.  Once  an  index  has  been  set,  it 
remains  in  a usable  state  without  conversions  being  required.  A 
subscript  must  be  internally  converted  every  time  it  is  used  even 
if  the  value  of  the  subscript  has  not  changed.  Execution  time, 
therefore,  is  saved  when  an  index  is  used  several  times  to  refer 
to  the  same  table  element. 
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2.7.4. 1 Table  Construction  and  Referencing.  (Cont.) 

Execution  time  can  be  saved  also  by  the  use  of  efficient 
techniques  for  setting  the  value  of  the  index.  The  order  of 
preference  for  setting  this  value  is: 

1.  SET  TO  another  index-name  which  relates  to  a table 
having  the  same  dimensions  or  to  an  index  data  item.  Note  that 
index  data  items  are  storage  units  for  index-names.  An  index  data 
item  is  described  at  the  77  level  with  the  USAGE  IS  INDEX  clause. 

2.  SET  TO  (UP  BY  or  DOWN  BY)  a literal.  Conversion 
instructions  are  not  needed  because  the  value  of  a literal  is 
fixed  at  compilation  time. 

3.  SET  TO  an  index-name  related  to  a table  of  different 
dimensions.  Only  a short  version  of  the  conversion  procedure  is 
executed  at  object  time. 

4.  SET  TO  an  identifier  other  than  an  index  name. 

5.  Examples  of  these  techniques: 


77 

WS-DATA- ITEM 

PIC  S9(5)  COMP. 

77 

WS- INDEX- DATA- ITEM 

USAGE  IS  INDEX. 

01 

WS-TAB1 . 

03 

WS-TAB1-ELMT 

OCCURS  5 TIMES 

INDEXED  BY  WS-INDEX1 

PIC  X(50) . 

01 

WS-TAB2 . 

03 

WS-TAB2-ELMT 

OCCURS  5 TIMES 

INDEXED  BY  WS-INDEX2 

PIC  X(50). 

01 

WS-TAB3 . 

03 

WS-TAB3-ELMT 

OCCURS  10  TIMES 

INDEXED  BY  WS-INDEX3 

PIC  X(100) . 
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2. 7. 4.1  Table  Construction  and  Referencing.  (Cont.) 


PROCEDURE  DIVISION 
0010- IN IT. 


MOVE  +1  TO  WS-DATA-ITEM 
SET  WS-INDEX1  TO  1. 

SET  WS-INDEX2  TO  1. 

SET  WS-INDEX3  TO  1. 


0020-PROCESS. 

SET  WS-INDEX-DATA-NAME  TO  WS-INDEX1 


0030-EXAMPLE1 . 

SET  WS-INDEX1  TO  WS-INDEX2 . 

SET  WS-INDEX1  TO  WS-INDEX-DATA-NAME 


0040-EXAMPLE2 . 

SET  WS-INDEX1  TO  4 


0050-EXAMPLE3 . 

SET  WS-INDEX1  TO  WS-INDEX3 


0060-EXAMPLE4 . 

SET  WS-INDEX1  TO  WS-DATA-ITEM 


• IBM  GUIDELINES.  None 


TABLE  INITIALIZATION 


GENERIC  CONCEPTS 


All  tables  being  constructed  in  a program  should  have 
their  data  areas  initialized  before  construction.  This  aids  in 
debugging  and  maintenance  of  the  program.  There  are  several 
techniques  available  for  accomplishing  this  initialization. 
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2. 7. 4.1  Table  Construction  and  Referencing.  (Cont.) 


In  the  DATA  DIVISION,  alphanumeric  group  items  can  be 
Initialized  using  the  VALUE  clause  at  the  group  level. 


VALUE  SPACES 
OCCURS  10  TIMES 
PIC  X (10) . 


01  WS-TAB1 
03  WS-TAB1-ELMT 


In  the  PROCEDURE  DIVISION,  the  technique  used  for 
initialization  depends  on  the  description  of  the  table  elements 


1.  Alphanumeric  table  elements  can  be  initialized  simply 
by  moving  a value  to  the  group  level. 


MOVE  SPACES  TO  WS-TAB1 


2.  Signed  numeric  table  elements  must  be  initialized 
individually  in  order  to  preserve  the  sign  position.  This  can  be 
done  by  indexing  through  the  table. 


01  WS-TAB1 . 

03  WS-TAB1-ELMT 


OCCURS  10  TIMES 
INDEXED  BY  WS-INDEX1 
PIC  S9 (5) . 


PROCEDURE  DIVISION. 
0010-HSKP. 

SET  WS-INDEX1  TO  0 


SET  WS-INDEX1  UP  BY  1. 

MOVE  -H>  TO  WS-TAB1 -ELMT  (WS-INDEX1) 
IF  WS-INDEX1  NOT  EQUAL  10 
CO  TO  0020-INIT. 
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2. 7. 4.1  Table  Construction  and  Referencing.  (Cont.) 


• IBM  GUIDELINES 


If  a table  has  data  elements  which  are  COMP,  the  whole 
table  can  be  initialized  to  ZERO  by  moving  LOW-VALUES  to  the 
group  level. 


If  a table  contains  COMP-3  fields  or  numeric  DISPLAY 
fields,  each  elementary  item  in  order  to  be  operated  on  arith 
metically  must  have  a sign  associated  with  it. 


The  following  method  may  be  used  to  initialize  the 
elementary  items  to  ZERO. 


01  WS-DATA-AREA. 

03  WS-DATA-DUMMY1 . 

05  FILLER 

PIC  S9 (5)  COMP- 3 VALUE  0. 

05  WS-DATA-DUMMY2. 

07  WS-DATA-VALUE 

OCCURS  20  TIMES  j 

PIC  S9(5)  COMP- 3. 

01  WS-TAB1. 

03  WS-TAB1-ELMT 

OCCURS  20  TIMES 

PIC  S9(4)  COMP. 

MOVE  LOW- VALUES  TO  WS-TAB1. 
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2.7.4. 1 Table  Construction  and  Referencing.  (Cont.) 

A move  from  WS-DATA-DUMMY 1 to  WS-DATA-DUMMY2  propagates 
the  value  of  WS-DATA-DUMMY 1 throughout  the  area  WS-DATA-DUMMY 2 
initializing  each  elementary  item  to  ZERO  with  proper  placement 
of  the  sign. 


MOVE  WS-DATA-DUMMY1  TO  WS-DATA-DUMMY2 . 


This  should  be  executed  only  when  the  area  is  to  be 
initialized  to  ZERO. 
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2.7.5  TRANSFER  OF  CONTROL 


2.7.5. 1 Overlay  Structures 


GENERIC  CONCEPTS 


A diagram  of  a typical  overlay  structure  Is  shown  in 


FIGURE  2-62 


OVERLAY  4 


OVERLAY  3 


OVERLAY  2 


OVERLAY 


OVERLAY  1 


ROOT 


FIGURE  2-62 


The  root  portion  remains  core  resident  throughout  the 
execution  of  the  program.  The  root  controls  loading  and  execu 
tion  of  the  overlays. 


Overlay  segments  are  loaded  into  core  when  CALLed  by  the 
root  or  other  segments  and  can  be  overlaid  by  other  segments. 


An  overlay  module  may  be  created  through  use  of  the  CObOL 
segmentation  facility.  Refer  to  the  segmentation  feature  in  the 
Special  Feature  Section. 
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2. 7.5.2  Subprogram  Linkage. 

GENERIC  CONCEPTS. 

• The  CALL  statement  serves  to  pass  control  from  one  module 
to  another  module  within  a program.  When  control  passes  to  a 
called  module,  execution  is  from  procedure  statement  to  procedure 
statement  beginning  with  the  first  nondeclarative  statement.  The 
logical  end  of  the  run  unit  is  reached  when  a STOP  RUN  statement 
is  executed  and  control  is  passed  to  the  operating  system.  The 
logical  end  of  the  called  module  is  reached  only  when  an  EXIT 
PROGRAM  statement  is  executed;  control  then  reverts  to  the  next 
instruction  following  the  CALL  statement  in  the  calling  module. 

An  EXIT  PROGRAM  in  a non-subprogram  is  equivalent  to  a fall 
through. 


• A called  module  can  itself  CALL  other  modules.  However, 
where  circularity  of  control  is  initiated  an  unusual  end-of- 
program  will  occur.  For  example,  if  module  A calls  module  B,  then 
module  B calls  module  A or  another  module  which  calls  module  A,  an 
abend  will  result.  The  distinction  between  circularity  of  control 
and  returning  control  to  a calling  module  should  be  recognized. 
When  A calls  B and  B calls  C,  control  may  return  to  B after  the 
execution  of  EXIT  PROGRAM  in  C and  lastly  control  returns  to  A 
after  the  execution  of  EXIT  PROGRAM  in  B.  In  this  case,  no  cir- 
cularity of  control  exists. 

• Because  a calling  program  may  also  be  called,  some  con- 
fusion may  arise  as  to  whether  to  use  the  STOP  RUN  statement  or 
the  EXIT  PROGRAM  statement.  Since  a STOP  RUN  statement  returns 
control  to  the  operating  system  when  encountered,  it  should  not 
be  used  when  the  program  is  to  be  called.  The  EXIT  PROGRAM, 
however,  returns  control  to  the  program  calling  it  and  should  not 
be  used  if  the  program  is  being  used  as  the  root  calling  program. 

By  specifying  the  following  coding,  both  of  these 
situations  can  be  covered  in  the  same  program. 


0090-EXIT-PROG. 

EXIT  PROGRAM. 

0100-STOP-PROG. 

STOP  RUN. 
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2 . 7 . 5 . 3 Subprogram  Technique. 

The  technique  to  be  used  when  calling  COBOL  subprograms  is 
discussed  in  this  section. 

Reference  should  be  made  to  using  the  PROCEDURE  DIVISION 
USING...  option  in  the  called  program.  This  procedure  is  pre- 
ferred to  the  ENTRY  "entry  point"  USING. .. technique  which  is  not 
an  ANS  standard  but  an  IBM  extension. 

The  LINKAGE  SECTION  is  an  IBM  extension  to  ANS  COBOL  but 
provides  useful  core  utilization.  A called  COBOL  program,  with 
the  passed  data  defined  within  a LINKAGE  SECTION,  will  reference 
the  address  locations  defined  in  the  main  program.  The  called 
program  will  not  establish  duplicate  allocations.  The  following 
is  an  example  of  a calling  and  called  program  with  a LINKAGE 
SECTION.  (Refer  to  FIGURE  2-63.)  ' 


CALLING  PROGRAM 

IDENTIFICATION  DIVISION. 
PROGRAM- ID.  CALLPROG. 


DATA  DIVISION. 


WORKING- STORAGE  SECTION. 


01  WS-RECORD- 1 . 


03 

WS-SALARY 

PIC 

S9(5)V99 

03 

WS-RATE 

PIC 

S9V99. 

03 

WS-KOURS 

• 

• 

PIC 

S99V9. 

FIGURE  2-63 
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2. 7.5.3  Subprogram  Technique.  (Cont.) 


PROCEDURE  DIVISION. 

CALL  SUBPROGRAM  USING  WS-RECORD-1.  STOP  RUN. 


CALLED  PROGRAM 

IDENTIFICATION  DIVISION. 
PROGRAM-ID . SUBPROGRAM . 


DATA  DIVISION. 


LINKAGE  SECTION. 


01  LS-PAYREC. 

03  LS-PAY 
03  LS-HOURLY-RATE 
03  LS-HOURS 


PIC  S9(5)V99. 
PIC  S9V99 . 
PIC  S99V9 . 


PROCEDURE  DIVISION  USING  LS-PAYREC 


0090-END-SUB. 
EXIT  PROGRAM. 
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2. 7. 5. 3 Subprogram  Technique. 


(Cont. ) 


P52ATU,  a CSC  OS  executive  software  module,  should  be 
used  as  a link  module  whenever  subprograms  that  are  subject  to  a 
high  degree  of  change  and  modification  are  used.  The  P52ATU  mod- 
ule loads  and  transfers  control  to  the  subprogram  at  execution 
time.  This  allows  changes  to  the  subprogram  without  relinking 
the  main  program.  The  following  techniques  aid^in  clarifying 
which  items  in  the  called  program  are  paired  with  items  in  the 
calling  program. 


All  data  items  in  the  called  program  which  are  to  be 
used  by  one  or  more  calling  programs  should  be  physically  grouped 
together. 

V. 

The  group  of  items  should  be  combined  into  one  01-level 
record  description.  It  is  more  efficient  to  reference  one  data- 
name  with  the  USING  clause  than  each  individual  item. 


If  the  data  items  in  a group,  cannot  be  combined  into  a 
single  01-level  record  description  entry,  they  should  be  consoli- 
dated as  much  as  possible  and  listed  with  the  77-level  items 
first  and  the  01-level  record  description  following. 

The  above  techniques  apply  to  the  WORKING-STORAGE  items 
for  the  calling  program  and  the  LINKAGE-SECTION  items  in  the 
called  program. 


2.7.6  SOURCE  LANGUAGE  SYSTEM  (SLS) /PROGRAM  LANGUAGE  UPDATE 
SERVICE  (PLUS). 


2 . 7 . 6 . 1 Source  Library  Maintenance 


• Source  Language  System  (SLS)  or  Program  Language  Update 
Service  (PLUS)  will  be  used  by  all  USACSC  developers  for  source 
library  maintenance.  SLS  will  be  used  by  all  developers  main- 
taining a single  copy  of  a program  coding  that  can  be  compiled 
and  executed  on  different  operating  systems  and/or  across  computer 
lines,  for  all  360/370  OS  systems,  and  for  all  developers  using 
the  370  test  bed.  PLUS  may  be  used  for  systems  developed  exclu- 
sively for  IBM  360  DOS  although  the  use  of  SLS  is  encouraged. 

PLUS  may  be  used  for  systems  converting  from  DOS  to  OS  for  a 
period  of  120  days  after  completion  of  the  conversion. 


2. 7. 6. 2 Catalogued  Programs 


• All  programs  will  be  catalogued  to  the  SLS  or  PLUS  library 
prior  to  all  updating  or  compilation. 


1 FEB  79 


CSCM  18-1-1 


E 

!■ 

f 


' 

[ 

- 


! 


2. 8. A SINGLE  SOURCE  SYSTEM.  (Cont.) 

Upon  encountering  an  "A"  in  column  7,  replaces  the  "A" 
with  a space  activating  that  line  for  an  OS  conplle  and  places  an 
indicator  in  columns  73-80. 

Upon  encountering  a "B"  in  column  7,  replaces  the  "B" 
with  an  asterisk  making  that  line  a comment  to  the  OS  compiler 
and  places  an  indicator  in  columns  73-80.  The  OS  and  all  other 
unique  lines  remain  OS  comments. 

For  a DOS  compile,  the  opposite  process  would  occur. 

2.8.5  IMPLEMENTING  INSTRUCTIONS . 

s For  OS  users  more  detailed  information  Including  JCL 
required  to  use  the  Single  Source  Language  System  can  be  found  in 
the  USACSCM  Executive  Software  Catalog,  IBM/OS,  Manual  Number 
18-2-B-ATU  under  program  U05ATU. 


! 
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2.9  OS/DOS  COMPATIBILITY. 

2.9.1  PROGRAM  TECHNIQUES. 

• Program  conversions,  from  DOS  to  OS,  have  revealed  several 
OS  problems  (causing  abnormal  program  termination)  that  were  found 
to  be  caused  by  COBOL  programing  techniques.  These  techniques 
have  proven  to  be  entirely  satisfactory  as  far  as  ANS  COBOL  syntax 
and  DOS  execution  are  concerned  but  have  caused  problems  when 
operating  under  OS. 

2.9.2  INPUT/ STORAGE  AREAS. 

• DOS  programers  occasionally  use  input  areas  (the  data 
areas  associated  with  FD's  or  SD's)  as  storage  areas.  The  use  of 
these  storage  areas  is  often  on  a temporary  basis  as  an  inter- 
mediate work  area.  The  DOS  programer  has  found  that  it  is  more 
core  efficient  to  use  the  input  areas  as  compared  to  establishing 
similar  areas  in  WORKING- STORAGE.  DOS  pointers  to  input  areas  are 
valid  in  circumstances  where  OS  has  random  or  incorrect  pointer 
information.  In  OS,  1-0  buffer  areas  are  available  with  these 
restrictions : 

2 . 9 . 2 . 1 Input  Buffers. 

• OS  obtains  input  buffers  when  an  OPEN  statement  is  execu- 
ted and  releases  these  buffers  when  a CLOSE  statement  is  executed. 
No  moves  to  or  from  the  data  area  of  a closed  file  should  occur. 
Such  moves  may  cause  abends  or  may  overlay  other  data  in  the 
partition/region. 

2 . 9 . 2 . 2 Address  Pointer. 

• The  OS  address  pointer  to  the  input  area  is  not  estab- 
lished until  after  the  first  READ  instruction.  Again,  a move 
to/from  an  OPEN  but  not  read  file  gives  unpredictable  results. 

The  output  buffer  area,  however,  is  established  when  the  output 
area  is  opened  and  data  manipulations  in  the  output  area  is 
permissible. 


2-568 


1 FEB  79 


CSCM  18-1-1 


2.9.3  STOP  RUN  STATEMENT. 

• The  STOP  RUN  statement  in  DOS  causes  a return  to  the  sys- 
tem and  end-of-job  step  (EOJ  macro).  The  STOP  RUN  statement 
under  the  OS  system  causes  a return  to  the  invoker  of  the  main 
COBOL  program  as  follows: 


INVOKER 

RESULTS 

. Operating  System 

. EOJ  step 

. Program  in  another  language 
that  follows  COBOL  invoca- 
tion conventions.  A program 
in  another  language  that  follows 
COBOL  invocation  conventions 
is  logically  considered  to  be  a 
COBOL  program. 

. EOJ  step 

. Program  in  another  language 
that  does  not  follow  COBOL 
invocation  conventions. 

. Return  to  the  invoking 
program  of  the  main 

COBOL  program. 

A situation  frequently  encountered  is  the  placement  of  a 
’STOP  RUN’  statement  within  an  INPUT  or  OUTPUT  PROCEDURE.  This 
will  cause  an  ABEND  0C4.  Likewise,  a branch  to  a paragraph  out- 
side an  INPUT  or  OUTPUT  procedure  causes  an  ABEND  if  a ’STOP  RUN' 
is  encountered. 

2.9.4  DATA  FORMATS. 


• The  DOS  version  of  CURRENT-DATE  has  two  formats,  MM/DD/YY 
and  DD/MM/YY.  The  OS  format  of  these  eight  bytes  is  MM/DD/YY. 
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2.9.5  RECORD  IDENTIFIER. 

• Under  DOS  processing,  there  are  no  restrictions  on  the 
contents  of  the  ' record- identif ier ' portion  of  the  ACTUAL  KEY. 
However,  when  processing  F-mode  records  under  OS,  the  first  byte 
of  the  'record-identifier'  portion  of  the  ACTUAL  KEY  must  not  be 
HIGH-VALUE  else  the  system  regards  the  record  as  a dummy  record. 

2.9.6  PROGRAM  SWITCHES. 

• OS  cannot  access  the  UPSI  program  switches.  All  refer- 
ences to  these  switches  in  the  SPECIAL-NAMES  paragraph  and  all 
switch  conditions  in  IF,  PERFORM  and  SEARCH  statements  should  be 
removed . 

2.9.7  PICTURE  CLAUSE. 

• The  PICTURE  clause  for  the  ACTUAL  KEY  statement  varies 
between  DOS  and  OS.  The  PICTURE  siie  is  smaller  in  OS  and  the 
value  of  the  track  identifier  is  smaller.  In  addition,  DOS 
allows  the  ACTUAL  KEY  to  be  specified  under  either  actual  track 
addressing  or  relative  track  addressing.  OS  allows  only  relative 
track  addressing  to  define  the  ACTUAL  KEY. 

2.9.8  APPLY  CLAUSE. 

• Several  options  of  the  APPLY  clause  are  normally  handled 
in  OS  at  execution  time  (JCL)  whereas  DOS  would  handle  the  tech- 
niques at  compile  time.  The  following  are  examples  or  clauses 
that  must  be  removed  from  source  coding  and  replaced  by  JCL. 

(See  IBM  System  360/370  Operating  System:  Job  Control 
Language  Reference  GC28-6704). 


APPLY  CLAUSE 


OS  JCL  (DCB  PARAMETER) 


APPLY  EXTENDED-SEARCH 
APPLY  WRITE-VERIFY 
APPLY  CYL-OVERFLOW 
APPLY  CYL- INDEX 


OPTCD  - E 

LIMIT  = (No.  of  tracks) 
OPTCD  - W 
OPTCD  - WC 
OPTCD  = Y 

CYLOFL  “ (No.  of  tracks) 
OPTCD  - M 

NTM  “ (No.  of  tracks) 
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2.9.9  INVALID  KEY  OPTION. 

• Under  DOS,  for  a randomly  accessed  file,  the  INVALID  KEY 
option  of  the  REWRITE  statement  is  executed  when  the  preceding 
READ  statement  caused  an  invalid  key  condition.  When  the  OS  READ 
statement  for  an  indexed  file  causes  an  INVALID  KEY  condition, 

a REWRITE  statement  should  not  be  executed  for  the  record  with 
that  key  since  the  INVALID  KEY  condition  will  not  be  detected  and 
results  are  unpredictable. 

2.9.10  SYNTAX  ERRORS. 

• Several  additional  differences  exist  however;  syntax 
errors  will  be  generated  by  the  OS  compilation.  These  differences 
are  avoided  by  using  CSC  COBOL  which  precludes  the  use  of  such 
special  registers  as  COM-REG  (Communication  Region)  and  NSTD-REELS 
(Non-Standard  Label  Reel)  count.  The  differences  in  the  format  of 
the  system-name  in  the  ASSIGN  and  RERUN  clauses  cannot  be  avoided, 
but  must  be  recognized  and  accounted  for  since  it  is  implementor 
defined  by  the  COBOL  language.  A complete  description  of  the 
system-name  syntax  and  rules  is  in  the  section  on  CSC  Standard 
Coding  Conventions. 
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2.10  STANDARDS  AUDIT. 

2.10.1  MetaCOBOL  STANDARDS  AUDIT. 

2.10.1.1  Purpose. 

• The  standards  audit  macro  set  is  used  to  check  COBOL 
source  programs  for  compliance  with  standards  established  in  this 
manual.  When  violations  of  standards  are  detected,  the  messages 
are  shown  in  the  diagnostic  section  and  on  the  auxiliary  file  of 
the  MetaCOBOL  output  listings. 

2.10.1.2  Messages /Responses. 

• The  format  of  the  diagnostic  error  message  is  message 
code/severity  level/message.  There  are  two  severity  levels: 

W - A warning  which  indicates  the  statement  is  acceptable 
but  should  be  avoided. 

E - A violation  which  will  not  allow  the  COBOL  program  to 
be  compiled. 

• Some  message  codes  have  more  than  one  message  so  that 
specific  errors  can  be  indicated  to  the  programer  for  ease  in 
correction. 

• List  of  messages  with  explanations: 


' 1000-E  PROGRAM  HAS  INVALID  FORMAT' 


The  PROGRAM- ID  name  is  not  in  compliance  with  USACSCM 
18-1  and  must  be  changed.  The  first  character  must  be  a 'P', 
'T',  'D',  'S',  or  'U'  and  the  character  positions  A through  6 
must  be  a valid  subsystem  code. 
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2.10.1.2  Messages/Responses.  (Cont.) 


'1030-E  NO  PROGRAMER  NAME  AND/OR  OFFICE  SYMBOL’ 


The  AUTHOR  paragraph  should  contain  either  the  ASD  Office 
Symbol  or  Office  Symbol  and  programer  name. 


' 1030-E  AUTHOR  PARAGRAPH  MISSING' 


The  AUTHOR  paragraph  should  be  present  and  contain  ASD 
Office  Symbol  or  Office  Symbol  and  programer  name. 


' 1060-E  IMPROPER  INSTALLATION  CLAUSE' 


The  INSTALLATION  paragraph  entry  must  contain  as  its  first 
five  characters  CSCS-. 


'1060-E  INSTALLATION  PARAGRAPH  MUST  BE  PRESENT' 
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2.10.1.2  Messages /Responses . (Cont.) 

The  INSTALLATION  paragraph  must  be  present  with  the  five 


characters  of 

the  entry  CSCS-. 

' 1090-E 

NO  COMMENT  ENTRY  "TODAY"  PRESENT' 

The  DATE-COMPILED  paragraph  must  contain  the  entry  "TODAY". 

| ' 1090-E 

DATE-COMPILED  CLAUSE  MISSING' 

The  DATE-COMPILED  paragraph  uiust  be  present  with  the  entry 

of  "TODAY". 

' 1120-E 

SOURCE-COMPUTER  REQUIRES  IBM-360-MODEL' 

The  SOURCE  COMPUTER  entry  requires  the  prefix  IBM-  60-  with 

a model  number. 

'1120-E 

SOURCE-COMPUTER  CLAUSE  REQUIRED’  j 
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2.10.1.2  Messages/Responses . (Cont.) 


There  must  be  a SOURCE-COMPUTER  clause  with  the  entry 
having  IBM-360-  and  a model  number. 


1150-E  OBJECT-COMPUTER  REQUIRES  IBM-360-MODEL 


The  OBJECT-COMPUTER  entry  requires  the  prefix  IBM-360 
with  a model  number. 


1150-E  OBJECT-COMPUTER  CLAUSE  REQUIRED 


There  must  be  an  OBJECT-COMPUTER  clause  with  the  entry 
having  IBM-360-  and  a model  number. 


1180-E  C01  OR  C09  ONLY  VALID  ENTRY  IN  SPECIAL-NAMES 


All  other  entries  are  invalid 


NOT  NEEDED  ON  DOS  COMPILE 


1210-W 


SAME  RECORD  AREA' 


CSCM  18-1-1 


1 FEB  79 


2.10.1.2  Messages /Responses.  (Cont.) 

When  using  DOS,  do  not  use  this  clause;  it  is  unnecessary. 

'3000-E  DATA  NAME  MUST  NOT  BE  QUALIFIED' 

Qualification  of  data  names  in  the  PROCEDURE  DIVISION  is 
prohibited . 

' 3150-E  COMP  OR  COMP-3  ITEMS  MUST  BE  SIGNED' 

All  numeric  data  using  "COMP"  or  "COMP-3"  must  be  signed. 


' 3180-E  MUST  HAVE  WS-  OR  WSNN-  PREFIX' 


All  data  names  in  the  WORKING-STORAGE  SECTION  must  be 
prefixed  with  WS-  or  WSNN-  where  NN  is  two  numeric  characters. 




' 3210-E  MUST  HAVE  LS-  OR  LSNN-  PREFIX' 
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2.10.1.2  Messages /Responses.  (Cont.) 

Only  one  space  is  allowed  after  the  program-ID. 


The  type  must  be  one  of  the  following 


' 4240-W  ONE  SPACE  AFTER  MESSAGE  TYPE  ONLY’ 


. 
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2.10.1.2  Messages/Responses.  (Cont.) 

Only  one  space  is  allowed  after  message  type  entry. 


' 4 360-W  ENTER  CLAUSE  SHOULD  BE  AVOIDED' 


The  ENTER  statement  should  not  be  used. 


The  EXAMINE  statement  should  be  avoided. 


1 4450-E  USE  RESTRICTED  TO  TEST  PROGRAMS’ 
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2.10.1.2  Messages/Responses . (Cont.) 

The  COPY  statement  should  not  use  the  replacing  option. 


'4210-E  USE  RESTRICTED  TEST  PROGRAMS' 


The  use  of  the  DEBUG  statement  is  restricted  to  non- 
product ional  programs. 


' 4240-W  DISPLAY  CLAUSE  SHOULD  BE  AVOIDED' 


The  use  of  the  DISPLAY  statement  should  be  avoided  and  the 
format  of  the  message  should  be  the  following: 

PROGRAM-ID  space  MESSAGE  NUMBER  space  TYPE  MESSAGE 
space  TEXT.  Text  of  message  can  be  up  to  50  positions. 


' 4240-W  PROGRAM  IDS  DO  NOT  MATCH' 


The  Program-ID  in  the  DISPLAY  statement  and  in  the 
Program-ID  paragraph  do  not  match. 


4530-E  USER  LABELS  NOT  ALLOWED  FOR  OUTPUT  FILES' 


. 


— 
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2.11  JOB  SET-UP  REQUIREMENTS. 

• The  MetaCOBOL  Standards  Audit  can  be  executed  to  achieve 
various  results  under  both  DOS  and  OS.  Single  source  coding  and 
COPY  libraries  may  be  used  in  conjunction  with  the  Standards 
Audit.  The  following  is  a list  of  job  set-ups  for  both  DOS  and 
OS  to  accomplish  the  various  combinations  of  desired  output  from 
the  Standards  Audit  run. 

2.11.1  OS  SET-UPS. 

2.11.1.1  OS  Batch  Job  Stream. 

• Source  Program  on  cards. 


1.  //  EXEC  MCTCONV .MACRO-member  name 

2.  //META.SYSLIB  DD  DSN«xxxx,DISP«SHR 
//CONV.SYSIN  DD  * 

- data (COBOL  Source  Program) 

/* 

// 


EXPLANATION. 

STATEMENT  1.  Member  name  indicates  the  MetaCOBOL  macro  that  the 
source  program  is  run  against.  It  is  recommended 
that  CSCSTD  be  used,  as  this  contains  the  check  for 
CSC  Standards. 

STATEMENT  2.  xxxx  is  the  data  set  name  of  the  library  when  using 
COPY  statements. 

• Source  Program  on  SLS. 

Error  Listings  Only. 
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2.11.1.1  OS  Batch  Job  Stream.  (Cont.) 


EXPLANATION. 

STATEMENT  1.  If  the  job  is  OS,  w is  ’A'.  If  the  job  is  DOS, 
w is  'B' . The  default  is  OS. 

STATEMENT  2.  xxxxxxxx  is  the  program  name  on  SLS.  yyy  is  the 
current  update  number. 

STATEMENT  3.  zzzz  is  the  data  set  name  of  the  library  when  using 
COPY  statements. 

Error  listing  and  replace  MetaCOBOL  reformated  source 
statements  on  SLS. 


//  EXEC  P241MET2.FILTER-W 

//SYSIN  DD  * 

xxxxxxxx  TSOLOAD  XUPDT-yyy 


/ /META. SYSLIB  DD  DSN-zzzz,DISP«SHR 
//SLS. SYSIN  DD  * 
xxxxxxxx  TSOSAVE  XUPDT-yyy 

/* 
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2.11.1.1  OS  Batch  Job  Stream.  (Cont.) 


EXPLANATION.  Only  if  there  are  no  E-level  errors  in  the  program 
will  replacement  occur. 


STATEMENT  1 


STATQ1ENT  2.  xxxxxxxx  is  the  program  name  on  SLS.  yyy  is  the 
current  update  number. 


zzzz  is  the  data  set  name  of  the  library  when  using 
COPY  statement. 


STATEMENT  3 


STATEMENT  4.  xxxxxxxx  is  the  program  name  on  SLS.  yyy  is  the 
current  update  number. 


• Source  Program  on  a card  image  disk  data  set,  or  an 
extracted  SLS  source. 


P241META  xxxx  yyyy  zzzz 


xxxx  is  the  data  set  name  of  the  library  when  using 
COPY  statements.  The  data  set  name  is  delimited  by 
single  quotes.  If  no  COPY  statements  are  used,  NULL 
must  be  keyed  in. 


EXPLANATION 


yyyy  is  the  data  set  name  of  the  data  set  when  using 
COBOL  source  programs.  The  data  set  name  is 
delimited  by  single  quotes. 


zzzz  is  the  member  name  of  the  MetaCOBOL  macro  that 
the  source  program  is  run  against.  It  is  recommended 
that  CSCSTD  be  used,  as  this  contains  the  check  for 
CSC  standards. 
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2.11.1.2  To  Execute  on  TSO.  (Cont.) 


The  JCL  for  this  Is  the  same  as  that  shorn  for  the  batch 
job  stream  (reference  paragraph  2.11.1,1). 
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2.11.2  DOS  SET-UPS. 

2.11.2.1  DOS  Batch  Job  Stream. 

• Source  Program  on  cards. 


//  ASSGN  SYS006,X'TP0' 

//  MTC  REW, SYS006 
/ / DLBL  WORKZ , ' WORKZ ' , 0 , SD 
//  EXTENT  SYS004,WRK531,1,0,870, 30 
//  ASSGN  SYS004 ,X' DK1 ' 

//  ASSGN  SYS007 , IGN 
//  ASSGN  SYS010, IGN 
//  EXEC  ZMCT 
1.  OPTION  COPY 

*$COPY  CSCSTD 
data(COBOL  Source  Program) 

/* 


EXPLANATION. 

STATEMENT  1.  For  options  reference  MetaCOBOL  User  Guide  (P208M) . 
• Source  Program  on  PLUS. 


Error  listing  only. 


//  ASSGN  SYS031 ,XtDK4 ' WRKPAC 

//  ASSGN  SYS033,X'DK3’  PLUSPACK 

//  ASSGN  SYS034 ,X' DK4 ' WRKPAC 

//  D.LBL  A40ATP,  'MY  VERSION  TABLE' ,99/365, DA 

//  EXTENT  SYS033.SUBLIB, 1,0, 20,1 

//  DLBL  B40ATP, 'MY  LIBRARY  DIRECTORY' , 99/ 365, DA 

//  EXTENT  SYS033, SUBLIB , 1 ,0,21,6 

//  DLBL  C40ATP, 'MY  SOURCE  LIBRARY’ ,99/365/DA 

//  EXTENT  SYS033, SUBLIB, 1,0, 27, 3973 

//  DLBL  E40ATP, ,0,SD 

//  EXTENT  SYS0 34, WRKPAC, 1,0, 20, 140 

//  DLBL  F40ATP. ' IJSYSIN' ,0,SD 

//  EXTENT  SYS031.WEKPAC, 1,0, 160, 3840 

//  EXEC  P40ATP 

.SUBLIB  X 
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2.11.2.1  DOS  Batch  Job  Stream.  (Cont.) 


EXPLANATION 


STATEMENT  1 


wvwwww  is  the  program  name  on  PLUS,  xxxx  is  the 
version  number,  y is  the  program  designation, 
zzzz  is  the  programer's  last  name  or  accounting 
information. 


STATEMENT  2.  For  options  reference  MetaCOBOL  User  Guide  (P208M) 


Error  listing  and  replace  MetaCOBOL  reformated  source 
statements  on  PLUS. 


1 1.  .META  PGM=wwwwww,VRSN=xxxx,DESG=y,ACCT=zzzz 

/* 

// 

ASSGN  SYS033,X'DK1' 

// 

DLBL  M34ATP, 'TRANS  INPUT' ,0,SD 

// 

EXTENT  S Y S0  3 3 , WRKPAC ,1,0,20,840 

// 

EXEC  U34ATP  ( 

i 2.  OPTION  COPY  1 

*$COPY  CSCSTD 

/* 

// 

ASSGN  SYS006,Jw'TP0' 

// 

MTC  REW, SYS006 

// 

DLBL  WORKZ, 'WORKZ' ,0,SD 

// 

EXTENT  SYS004,WRK531 , 1,0,870, 30 

// 

DLBL  IJSYSIN, 'TRANS  INPUT', 0,SD 

// 

EXTENT  SYS IPT, WRKPAC, 1,0, 20, 840 

// 

ASSGN  SYS007 , IGN 

// 

ASSGN  SYS010 , IGN 

j ( ASSGN  SYSIPT,X' DK1 ' f 

// 

EXEC  ZMCT 

/* 
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2.11.2.1  DOS  Batch  Job  Stream.  (Cont.) 


ASSGN  SYSIPT,X’TP0’ 

//  DLBL  IJSYSPH, 'PLUS  INPUT' ,0,SD 
//  EXTENT  SYSPCH.WRKPAC, 1,0,870, 30 
ASSGN  SYSPCH.X'DKl' 

//  EXEC  U45ATP 


//  DLBL  IJSYSIN, 'PLUS  INPUT’ ,0,SD 
//  EXTENT  SYSIPT, WRKPAC, 1 ,0,870,30 
ASSGN  SYSIPT, X' DK1 ' 

//  EXEC  P40ATP 


ASSGN  SYSIPT.UA 


The  above  JCL  is  to  follow  the  set  of  JCL  given  in 
the  paragraph  for  Error  Listing  Only  with  Source 
Program  on  PLUS  (Reference  paragraph  2.11.2.1). 


EXPLANATION 
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USACSC  STRUCTURED  PROGRAMING  TECHNOLOGY 
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3.1  INTRODUCTION. 

3.1.1  GENERAL.  Computer  programing  has  evolved  over  the  years  as  an  * 
art  rather  than  a science.  Developments  in  recent  years  have  demonstrated 
that,  at  least  in  some  areas,  a scientific  or  disciplined  approach  is 
possible. 

Structured  programing  technology  was  introduced  and  implemented  into 
USACSC  by  Plans  10-75  and  33-75.  The  Command  has  gained  experience  in 
structured  programing  technology  primarily  through  the  DS4,  VIC,  SAAS, 
VFDMIS,  and  IFS  projects.  The  information  acquired  from  these  previous 
projects  showed  a need  for  a refinement  of  techniques. 

The  techniques  which  are  included  below  are  to  be  used  for  structured 
programing  technology: 

Top  Down  Development 

Structure  Chart  * 

Data  Flow  Graph  (Optional) 

Program  Design  Language  (PDL) 

Programing  Support  Library  (PSL) 

Structured  Coding  (SC)  or  Structured  Programing  (SP) 

Structured  Walkthrough  (SW)  (Optional) 

Team  Operation  or  Chief  Programer  Team  (CPT)  (Optional) 

Structured  Testing  * 

IPO  (Input,  Process,  Output)  * 

Nine  Step  Module  Management  Process  (Optional)  * 

"Hie  concept  of  Structured  Coding  followed,  rather  than  preceded,  the 
development  of  COBOL.  In  order  to  write  structured  code  in  COBOL,  a 
programer  must  simulate  the  control  logic  structures  using  the  capabilities 
of  the  language  (Structured  COBOL) . 

3.1.2  PURPOSE . This  chapter  is  to  be  used  along  with  other  chapters  of  * 
this  manual,  particularly  Chaper  2 which  deals  with  USACSC  standards 

for  COBOL.  It  provides  definition  of  terms,  an  introduction  to  the 
concepts,  standards,  and  guidelines  for  implementation. 

3.1.3  DEFINITIONS . 

3. 1.3.1  BACKUP  PROGRAMER.  In  team  operation,  a backup  programer  is  a 
senior  programer  and  analyst  who  functions  as  an  alternate  to  the  chief 
programer  so  that  he  can  assume  the  chief  programer' s responsibility 
temporarily  or  permanently. 
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3. 1.3. 2 CHIEF  PROGRAMER,  In  team  operation,  a chief  programer  is  a senior 
programer  and  analyst  responsible  for  the  complete  development  of  the 
programing  system. 

* 3. 1.3. 3 DATA  FLOW  GRAPH.  This  is  a graphic  technique  that  highlights  the 
data  transforms  in  a program.  A data  flow  graph  will  also  show  the 
conversion  of  input  elements  to  output  elements.  It  also  helps  define 
the  structure  of  the  program  by  showing  the  input,  central  transform 
(point  where  data  is  changed  from  input  to  output) , and  output  legs  of  a 
program.  A data  flow  graph  can  also  be  used  as  a review  and  documentation 
tool.  Refer  to  Chapter  3 of  TB  18-103  (Structured  Design  and  Development) 
for  example  of  data  flow  graph. 

* 3. 1.3.4  IPO  (Input,  Process,  Output)  Chart  - Shows  the  input,  processes, 
and  outputs  for  a program  in  a system.  !7~ a program  consists  of  more  than 
one  module,  an  IPO  chart  can  be  drawn  for  each  module  and/or  one  can  be 
drawn  for  the  entire  program. 

3. 1.3.5  LIBRARIAN.  The  librarian  is  a vital  team  member  who  transfers  hard 
copy  records  into  machine  readable  form.  The  librarian  is  depended  upon  for 
all  assembly,  compilation,  linkage  editing,  and  test  runs  as  required  by 
project  programers.  The  results  are  filed  by  the  librarian  to  maintain 
current  status  and  history  of  the  project. 

* 3. 1.3.6  PROGRAM  DESIGN  LANGUAGE  (PPL)  or  PSEUDO-CODE.  PDL  is  a near 
English  like  non-compilable  language  for  describing  the  program  logic.  All 
the  statements  or  instructions  of  this  program  are  written  in  English 

like  form,  with  indentation  to  show  nested  logic  (loops) . The  actual 
source  program  can  then  be  coded  from  this  PDL,  and  it  should  generally 
be  one  statement  of  PDL  generating  one  or  two  source  statements.  The 
term  Systems  Design  Language  (SDL)  is  also  used  sometimes,  but  it  means 
the  same  as  PDL  or  PSEUDO-CODE. 

3. 1.3. 7 PROGRAMING  SUPPORT  LIBRARY  (PSL).  PSL  is  a repository  for  data 
necessary  for  the  orderly  development  of  computer  programs  using  structured 
programing  technology  (SPT) . The  data  repository  is  in  two  forms:  internal 
library  modules/segments  are  stored  in  machine  readable  form  accessible  by 
the  computer  and  the  external  library  indentical  data  is  stored  in  hard 
copy  form  in  project  notebooks.  A PSL  system  also  includes  the  necessary 
interlocking  computer  and  office  procedures  for  manipulating  this  data  to 
provide  a constantly  up-to-date  representation  of  the  project  and  test 
data,  together  with  an  archive  file  for  reference  and  backup  purposes. 

* 3. 1.3. 8 STRUCTURE  CHART. 

3. 1.3. 8.1  SYSTEM  LEVEL.  During  the  design  state  of  a system,  structure 
charts  can  be  used  to  diagram  the  system.  This  diagram  will  show  the 
top-level  modules  and  each  top-level  module's  subordinate  modules.  Also 
within  each  module  is  the  title  of  that  module. 

& 
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3. 1.3. 8. 2  PROGRAM  LEVEL.  The  structure  chart  depicts  all  the  pieces 
(modules)  of  a program  and  all  the  interconnections.  It  represents  the 
actual  physical  structure  of  a program.  The  structure  chart  is  designed 
to  show  the  physical  structure  of  a modular  program,  hence,  it  does  not 
directly  show  either  the  flow  of  data  or  control  although  explanation  of 
the  boxes  in  the  structure  chart  in  that  a flowchart  shows  the  flow  of 
control,  but  does  not  show  the  data  flow.  IPO  (Input/Process/Output) 
charts  are  tools  used  to  further  describe  any  given  module  in  a structure 
chart.  The  IPO  chart  will  divide  the  input,  process,  and  output  into 
columns  and  then  list  and  describe  the  data  elements  for  input,  processing 
involved  on  data  elements  in  the  process  column,  and  explain  the  output 
elements.  A pictoral  representation  of  IPO  is  shown  in  Figure  3-3  of 
this  chapter. 

3. 1.3. 9 STRUCTURED  PROGRAM.  Structured  program  is  a program  constructed 
of  a basic  set  of  control  logic  figures  which  provide  at  least  the 
following:  sequence  of  two  operations,  conditional  branch  to  one  of 

two  operations  and  return,  and  repetition  of  an  operation.  A structured 
program  has  only  one  entry  and  one  exit  point.  Logic  flow  always 
proceeds  from  beginning  to  end  without  arbitrary  branching. 

3.1.3.10  STRUCTURED  PROGRAMING  (SP)  or  STRUCTURED  CODING  (SC).  SP  is  the 
process  of  developing  the  design,  writing,  and  testing  of  a program 
which  is  made  up  of  interdependent  parts  in  a definite  pattern  of 
organization.  Association  with  SP  are  certain  practices  and  a set  of 
rules  added  for  clarity  and  readability,  such  as  indentation  of  source 
code  to  represent  logic  levels,  the  use  of  meaningful  data  names,  and 
descriptive  commentary. 

3.1.3.11  STRUCTURED  SOURCE  CODE  LISTING.  Structured  source  code  listing 
is  a listing  for  a top  down  structured  program  (TDSP)  comprised  of  the 
following  sections: 

3.1.3.11.1  The  source  list  for  the  first  executable  structured  module 
(commonly  referred  to  as  the  top  level  module) . 

3.1.3.11.2  In  alphabetical  order,  the  source  listings  for  all  remaining 
structured  modules. 

3.1.3.11.3  Descriptive  commentary  (e.g.,  a table  of  inputs/outputs  for 
each  executable  structured  module) . 

3.1.3.11.4  The  logical  hierarchy  of  the  structured  modules  which 
constitute  this  TDSP.  It  must  show  the  executing  sequence  between 
executable  structured  modules. 

3.1.3.12  STRUCTURED  TESTING. 

3.1.3.12.1  UNIT  TESTING.  This  type  of  testing  is  performed  by  using 
the  same  technique  of  top-down  development,  whereby  each  program  from 
the  top-down  is  tested  as  soon  as  it  is  written.  Stubs  may  have  to 
be  developed  to  perform  this,  and  they  will  be  defined  next.  After  it 
is  tested,  it  is  then  implemented  into  the  system  to  test  lower  level 
modules  or  programs  and  this  is  done  down  to  the  lowest  level  program. 

This  testing  is  done  by  the  programer. 
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3.1.3.12.2  INTEGRATION  TESTING.  If  a particular  system  can  be  broken  into 
subsystems,  then  after  all  the  unit  testing  of  programs  in  this  subsystem 
are  written  and  tested,  an  integration  test  can  be  performed  on  it  by  the 
development  group  to  see  if  this  subsystem  is  performing  its  functions 
accurately  and  completely. 


3.1.3.12.3  SYSTEMS  TESTING.  This  is  performed  by  a quality  assurance  group 
(QAD)  to  develop  an  independent  view  of  the  results  of  the  integration 
testing  to  see  if  all  subsystems  when  integrated  together  will  perform  all 
functions  specified.  This  quality  assurance  group  will  also  check  the 
completeness  and  correctness  of  the  documentation. 


3.1.3.13  STRUCTURED  WALKTHROUGH.  In  team  operation,  structured  walkthrough 
is  a generic  name  given  to  a series  of  reviews,  each  with  different 
objectives  and  each  occurring  at  a different  time  in  the  application 
development  cycle.  The  reviewee  subjects  his  work  product  to  a review  by 
other  team  members  with  the  emphasis  on  design  and  coding  error  detection, 
this  contributing  to  increased  team  and  project  productivity. 


3.1.3.14  STUB.  This  is  a dummy  module  used  to  simulate  an  operational 
module.  This  is  needed  for  top-down  development  technology  whereby  some 
upper  level  modules  may  need  lower  level  modules  for  testing  before  this 
lower  module  is  developed.  In  most  cases,  this  stub  will  have  only  an 
entry  and  exit  and  possibly  something  to  display  that  control  was  trans- 
ferred to  this  module.  When  the  lower  level  module  is  developed,  this  stub 
is  discarded. 


3.1.3.15  TEAM  OPERATION  or  CHIEF  PROGRAMER  TEAM.  Team  operation  is  a group 
of  programing  specialists,  consisting  of  chief  programer,  backup  programer, 
and  librarian,  plus  additional  programers,  analysts,  and  technicians 
required  to  complete  the  project. 


3.1.3.16  TOP  DOWN  DEVELOPMENT.  Top  down  development,  is  a method  of  program 
design  and  development.  The  end  result  is  a TREE-LIKE  hierarchical 
structure  in  which  the  highest  level  of  control  logic  and  decision  is  designed 
first  and  proceeds  downward  in  increasing  detail  through  lower  level  modules. 
The  design  phase  is  completed  only  when  interface  statements  and  initial 
data  definitions  are  developed;  at  that  point,  top  down  coding  may  commence 
developing  downward  and  top  down  testing  may  commence  integrating  the 
functional  units  in  the  same  manner.  Structure  charts  can  be  used  at  this 
level  of  the  system  (system  level)  to  describe  the  system  in  a diagrammatic 
fashion.  Within  each  diagram  is  the  title  of  each  module. 


3.1.3.17  TOP  DOWN  PROGRAM  (TDP) . In  structured  programing,  a program  can  be 
one  module  of  a group  of  modules.  TDP  is  a structured  program  with  the 
additional  characteristics  of  the  source  code  being  logically,  but  not 
necessary  physically,  segmented  in  a hierarchical  manner  and  only  dependent 
on  code  already  written.  Control  of  execution  between  segments  is 
restricted  to  transfers  between  adjacent  hierarchial  segements.  TDP  is 
patterned  after  the  natural  approach  to  system  design  and  requires  that 
programming  proceed  from  developing  the  control  architecture  (Interface) 
statements  and  initial  data  definitions  downward  to  developing  and  inte- 
grating the  functional  units. 


?>-TOaa 


28  Jun  79  CSCM  18-1-1 

3.1.3.18  TOP  DOWN  STRUCTURED  PROGRAMING  (TDSP) . TDSP  is  that  part  of 
the  top  down  development  process  related  to  program  coding  and  execution 
testing.  With  TDSP  the  top  segment  of  a program  and  its  required  stubs 
are  coded  first  and  tested  before  proceeding  in  the  development  process. 

This  process  continues,  one  segment  at  a time  from  the  top  down,  until 
program  development  is  completed.  Associated  with  TDSP  are  certain 
practices  such  as  indentations  of  source  code  to  represent  logic  levels, 
the  use  of  intelligent  data  names,  and  descriptive  commentary.  TDSP 
requires  TDP  as  the  primary  implementation  methodology. 

3.1.4  CONCEPTS  OF  TOP  DOWN  STRUCTURED  PROGRAMING  (TDSP). 

3. 1.4.1  GENERAL. 

3. 1.4. 1.1  FUNCTIONAL  BREAKDOWN.  TDSP  starts  with  a desired  function's 
specifications,  repeatedly  breaking  down  functions  into  simpler  functions 
until  reaching  easily  coded  functions.  TDSP,  as  applied  to  testing,  is  an 
ordering  of  system  development  which  allows  for  continual  integration  of 
the  parts  being  developed.  At  each  state,  the  code  already  tested  drives 
the  new  code,  and  only  external  data  requires  no  extra  drivers. 

3. 1.4. 1.2  MODULAR  STRUCTURE.  In  top  down  programing,  the  system  is 
organized  into  a network  structure  of  modules.  The  top  module  contains 
the  highest  level  of  control  logic  and  decisions  within  the  program, 

and  either  passes  control  to  next  level  modules,  or  identifies  next  level 
modules  for  in-line  inclusions.  The  incomplete  next  level  modules  are 
called  "stubs"  and  those  which  are  to  be  replaced  eventually  with  running 
code  may  contain  a "no  operation"  instruction  or  possibly  a display 
statement  to  the  effect  that  control  had  been  received.  While  it  is 
recognized  that  such  code,  as  with  drivers,  are  also  eventually  discarded, 
the  effort  involved  in  writing  such  statements  is  less  than  that  required 
to  produce  and  pass  data  to  a module  for  unit  testing.  The  process  of 
replacement  of  successively  lower  level  stubs  with  processing  code 
continues  for  as  many  levels  as  required  until  all  functions  within  a system 
are  defined  in  executable  code. 

3. 1.4. 1.3  DATA  BASE  DEFINITION.  Top  down  programing  requires  that 
sufficient  data  base  definition  statements  be  coded  and  that  data  records 
be  generated  before  exercising  any  module  which  references  them.  Ideally, 
this  leads  to  a single  set  of  definitions  serving  all  the  programs  in  a 
given  application.  This  approach  provides  the  ability  to  evolve  the  product 
in  a manner  that  maintains  the  characteristic  of  being  always  operable, 
extremely  modular,  and  always  available  for  successive  levels  of 
implementation.  The  quality  of  a system  produced  using  this  approach  is 
increased,  as  reflected  in  fewer  errors  in  the  coding  process.  The  act 

of  structuring  the  logic  and  structured  design  techniques  calls  for  more 
forethought,  and  the  uniformity  and  single  entry,  single  exit  attribute 
of  the  structured  code  itself  contributes  to  the  reduction  in  errors. 

Because  of  the  nature  of  TDSP,  the  resulting  system  is  extremely  modular 
in  function  and  logic  structure,  minimizing  the  effect  of  requirement 
changes  on  already-developed  code. 

3. 1.4. 1.4  TOP  DOWN  DEVELOPMENT.  Conceptually,  TDSP  proceeds  from  a single 
starting  point  while  conventional  implementation  proceeds  from  as  many 
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starting  points  as  modules  in  the  design.  TTie  single  starting  point 
does  not  imply  that  the  implementation  must  proceed  down  the  hierarchy 
in  parallel.  Some  branches  intentionally  will  be  developed  earlier  than 
other  branches.  For  example,  user  or  other  external  interfaces  might 
be  developed  to  permit  early  training  or  hardware/software  integration. 
Also  in  many  applications,  requirements  will  become  firm  in  certain 
areas  before  others.  The  areas  covered  by  known  requirements  can  usually 
become  operational  while  the  requirements  are  being  developed  for  the 
others.  Some  module  stubs  intended  to  support  long-range  requirements 
may  remain  after  the  program  is  fully  operational  still  available  as  a 
guide  if  and  when  they  are  needed. 

3. 1.4. 2 FIGURES. 


3. 1.4. 2.1  Figure  3-1  shows  a comparison  of  traditional  bottom  up 
development  and  top  down  development.  (The  dash  lines  represent  the 
unfinished  portions  of  the  programs) . 

* 3. 1.4. 2. 2 Figure  3-2  is  an  example  of  a structure  chart  at  the  program 
level. 

* 3. 1.4. 2. 3 Figure  3-3  is  an  IPO  example  of  an  overview  diagram  of  the 
Gross  Pay  Calculation  Module  and  its  subordinate  modules.  There  can  be 

a detailed  IPO  for  each  module  all  the  way  down  to  the  lowest  level  module 
if  desired. 

<*  3. 1.4.3  PROGRAM  DESIGN  LANGUAGE  (PPL)  or  PSEUDO-CODE.  This  paragraph 

prescribes  guidelines  to  be  observed  in  the  use  of  a Program  Design 
Language  (PDL) . PDL  along  with  structure  charts,  is  a textual  alternative 
to  flowcharts  and  decision  tables,  and  is  particularly  well  suited  for  use 
in  conjunction  with  SP.  A PDL  module  consists  of  a logically  complete 
group  of  PDL  statements,  and  is  used  to  state  the  program  logic  designed 
to  satisfy  a detailed  functional  requirement.  PDL,  due  to  its  textual 
form,  is  more  easily  maintained  than  graphic  forms  of  presentation. 

* 3. 1.4. 3.1  PURPOSE . The  purpose  of  a PDL  is  to  provide  a vehicle  to 
translate  functional  specifications  into  program  design,  based  on  TDSP. 

It  is  used  to  convey  logic  design  when  the  coded  solution  is  not  readily 
apparent  from  the  specification. 

* 3. 1.4. 3. 2 DESCRIPTION.  PDL  is  a formatted  English  textual  presentation 
of  a program  logic  that  is  prepared  by  the  analyst  or  programer/analyst. 

This  PDL  is  prepared  to  use  in  a code  walkthrough.  It  can  also  be  used 
in  communicating  with  other  people  that  may  not  know  the  computer  program 
langauge  (i.e.,  COBOL).  After  the  code  walkthrough  is  completed  and 
determined  to  be  correct,  the  actual  source  program  is  coded  from  this 
PDL  by  the  programer.  The  grammatical  structures  prescribed  parallel 
those  required  for  structured  coding,  i.e.,  the  basic  control  structures. 
Indentation  rules  are  defined  to  increase  readability.  Selected  keywords, 
used  to  outline  the  structure  of  PDL,  are  reserved  to  enhance  communication 
among  users,  but  the  majority  of  PDL  vocabulary  is  left  to  the  choice  of 
the  system  developers.  In  the  following  subsections,  keywords  are  written 
in  capital  letters;  brackets  (C  J)  and  dotted  lines  indicate  optional  items. 
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3. 1.4. 3. 3.  MODULE  DELIMITATION.  The  beginning  and  end  of  modules  are  * 

identified,  respectively,  by  a user-selected  module  name  and  the  word 

'end'  both  beginning  in  the  leftmost  position  of  the  PDL  text.  A key 

word  identifying  the  module  type  may  follow  the  module  name.  The 

portion  of  the  PDL  which  related  the  action  of  the  module  begins  at 

a 2-column  intentation.  The  following  figure  illustrates  overall 

module  structure. 

Module  name  [segement  type] 

Module  action  Test 
END  Module  name 

3. 1.4. 3. 4 TYPES  OF  PDL  SEGMENTS  [MODULES) „ * 

3. 1.4. 3. 3.1  MAIN  - represents  the  top-level  control  of  the  program.  It 
includes  the  program  start  and  stop  operations. 

3. 1.4. 3. 4. 2 SUBROUTINE  - represents  a discrete  section  of  executable  code 
performing  a complete  operation.  It  is  physically  separate  from  the 
program  and  will  be  called  for  at  time  of  execution. 

3. 1.4. 3. 4. 3 INCLUDED  - represents  executable  code  physically  included  in 
the  program  at  the  time  of  compilation. 

3. 1.4. 3. 4. 4 DATA  - describes  a section  of  program  which  only  contains 
data  definitions. 

3. 1.4. 3. 5 INTERNAL  MODULE  STRUCTURE  - PDL  text  describing  action  will  be  * 

indented  2 columns  from  the  module  name.  PDL  keywords  which  outline 

specific  logical  figures  will  start  at  this  margin  of  indentation.  When 
figures  are  nested,  indentation  is  cumulative. 

3. 1.4. 3. 6 GUIDELINES  FOR  SEMANTICS.  The  choice  of  vocabulary  to  be  used 
to  describe  predicates  and  functions  is  left  to  the  development  group. 

Selections  may  be  standard  English  language  and/or  may  be  derived  from 
the  intended  implementation  language.  Most  choices  should  be  made  on 

a projected  basis,  not  varying  between  programers  within  a project. 

The  goal  of  the  PDL  is  maximum  comprehensibility  when  transferring 
technical  information  among  diverse  groups  of  managers,  programers,  and 
analysts. 

In  addition  to  the  keywords  already  described,  two  others  are  reserved 
for  use  in  the  action  portion  of  a PDL  module. 

INCLUDE  - This  preceeds  the  name  of  a module  to  be  included 
(INCLUDED  or  DATA  type  module) . 

CALL  - This  preceeds  the  name  of  a subroutine  to  be  executed 
(SUBROUTINE  type  module) . 

* 

3. 1.4. 3. 7 CSC  PROGRAM  DESIGN  LANGUAGE  (PDL)  CONVENTIONS.  The  Program 
Design  Language  (PDL)  will  be  subject  to  the  following  rules: 

3. 1.4. 3. 7.1  Only  the  five  logic  structures  (sequence,  if-then-else,  do 
while,  do  until,  and  case)  will  then  be  used. 
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3. 1.4. 3. 7. 2 Indentation  will  be  used.  It  is  recommended  that  indentation 
when  used  be  2 for  dependency  or  4 columns  for  continuation. 

3. 1.4. 3. 7. 3 There  will  be  only  one  logical  statement  per  line. 

3. 1.4. 3. 8 PPL  EXAMPLE.  Below  is  an  example  of  PDL  representation. 

M000SOT  WAFRE  MAIN 

DO  INITIALIZATION 
DO  M001SOT-OBTAIN  CLEAN  WORD 
DOWHILE  (MORE  WORDS) 

DO  M002SOT- UPDATE  TABLE 
DO  M001SOT-OBTAIN  CLEAN  WORD 
ENDO 

DO  M002SOT-DUMP  TABLE 
DO  TERMINATION 
END  M00SOT 


M002SOT  UPDATE  THE  TABLE  INCLUDED 
CALL  "MODIFY" 

IF  (TABLE-FULL) 

DO  M003SOT-DUMP  WORD  FREQUENCY  TABLE 
CALL  "MODIFY" 

(ELSE) 

ENDIF 

END  M002SOT 


M003SOT  DUMP  WORD  FREQUENCY  TABLE  INCLUDED 
SET  NEXT-WORD-POINTER  TO  1 
DOWHILE  (NOT  END-OF-TABLE) 


CALL  "DUMP" 

DO  M006SOT- FORMAT  LINE 
DO  DF02S0T-PRINT  LINE 
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3. 1.4.4  PROGRAMING  SUPPORT  LIBRARY  (PSL) 

3. 1.4.4. 1 GENERAL 

3. 1.4. 4. 1.1  A Programing  Support  Library  (PSL)  serves  as  a repository 
for  data  necessary  for  the  orderly  development  of  computer  programs 
using  SPT.  The  data  exists  in  two  forms. 

INTERNAL  LIBRARY.  Data  is  stored  in  machine  readable  form  accessible 
by  the  computer. 

EXTERNAL  LIBRARY.  Corresponding  data  is  stored  in  hard  copy  (Human 
readable)  form  in  project  notebooks. 


Included  with  PSL  are  the  necessary  computer  and  office  procedures  for 
manipulating  this  data. 


3. 1.4. 4. 1.2  The  purpose  of  a PSL  is  to  support  the  program  development 
process.  This  involves  the  support  of  the  actual  programing  process  and 
the  management  of  the  process.  Support  of  the  programing  process  involves 
support  of  the  design,  coding,  testing,  documentation,  and  maintenance  of 
computer  programs  and  the  associated  data-base  definitions.  A PSL  provides 
this  support  through: 


Storage  and  maintenance  of  programing  data  (Segments/modules) . 

Output  of  programing  data  and  related  control  data. 

Support  of  compilation  and  testing  of  programs. 

Support  of  the  generation  of  program  documentation. 

3. 1.4.4. 1.3  A PSL  must  also  provide  some  means  of  generating  and  maintaining 
itself.  Support  of  the  management  of  the  programing  process  also  involves 
the  storage  and  output  of  programing  data.  In  addition,  it  involves: 


Collection  and  reporting  of  management  data  related  to  program  development. 

Control  over  the  integrity  and  security  of  the  data  stored  in  the  PSL. 

Separation  of  the  clerical  activity  related  to  the  programing  process. 

3. 1.4.4. 1.4  A PSL  support  an  approach  in  which  people  work  on  a common, 
visible,  centrally-stored  product  rather  than  on  independent  hidden  pieces. 

It  provides  a significant  aid  to  test  and  evaluation  in  that  the  current 
operational  software  system  code  is  centralized  to  avoid  ambiguity  of 
what  is,  and  what  is  not,  valid  software  as  well  as  centralizing  the  valid 
test  program  code.  The  programers  communicate  through  this  product  in 
carrying  out  programer  and  clerical  interface  activities.  A PSL  permits 
a programer  to  exercise  a wider  span  of  detailed  control  and  reduces 
explicit  communication  requirements.  This  makes  it  easier  to  bring  new 
personnel  on  board  and  to  shift  programers  from  one  part  of  the  project 
to  another.  It  also  minimizes  the  preparation  effort  for  technical 
audits.  A librarian  is  responsible  for  maintaining  the  notebooks 
and  archives  of  the  PSL,  and  the  programers  are  responsible  for  their 
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This  structure  of  responsibility  permits  standardization  in  project 
record  keeping  and  insures  that  the  hard  copy  listings  in  the  library 
correspond  to  the  most  current  version  of  the  system.  A PSL  system 
has  four  components: 

Interna ’ libraries 
External  Libraries 
Computer  procedures 
Office  procedures 

The  components  of  the  system  are  interlocked  to  establish  an  exact 
correspondence  between  the  internal  (Computer  readable)  and  external 
(Programer  readable)  versions  of  the  developing  system.  This  continuous 
correspondence  is  the  characteristic  of  a PSL  that  guarantees  on-going 
visibility  of  the  developing  system. 

3. 1.4.4. 1.5  Different  implementations  of  a PSL  exist  for  various 
computer  and  operating  system  environments  used  in  system  development. 

The  fundamental  correspondence  between  the  internal  and  external  libraries 
in  each  environment  is  established  by  the  PSL  office  and  computer 
procedures.  The  office  procedures  are  specified  at  a detailed  level 

so  that  the  format  of  the  external  libraries  will  be  standard  across 
programing  projects,  and  so  that  the  maintenance  of  both  internal  and 
external  libraries  can  be  accomplished  as  a clerical  function.  The 
PSL  computer  procedures  for  each  are  expressly  designed  for  easy 
invocation  by  librarians  so  that  their  use  is  nearly  fail-safe. 

3. 1.4. 5 STRUCTURED  WALKTHROUGHS.  Project  management  has  long  recognized 
the  need  7oF"peHodIFTe\dews-tcr  determine  whether  the  project  is  on 
schedule  and  to  identify  areas  that  require  special  attention.  Generally, 
however,  these  exercises  have  been  looked  upon  with  hostility  by  those 
who  must  submit  themselves  to  the  review.  A structured  walkthrough  is  a 
generic  name  given  to  a series  of  reviews,  each  with  different,  but 
specific  objectives  and  each  occurring  at  different  times  in  the  software 
development  cycle.  The  basic  characteristics  of  the  walkthrough  are: 

3. 1.4.5. 1 It  is  arranged  and  scheduled  by  the  developer  (person 
responsible  for  the  work  product  being  reviewed). 

3. 1.4.5. 2 Participants  (reviewers)  are  given  the  review  materials  prior 
to  the  walkthrough  and  are  expected  to  be  familiar  with  them. 

3. 1.4. 5. 3 Management  above  team  leader  (chief  programer)  will  not  be 
involved  in  structured  walkthrough (s)  and  structured  walkthroughs  will 
not  be  used  for  employee  evaluation. 

3. 1.4. 5. 4 The  emphasis  is  on  error  detection  rather  than  error 
correction. 
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3. 1.4. 5. 5 Typical  walkthrough  will  include  four  to  six  people  and  will  last 
for  a specified  time,  usually  one  or  two  hours.  If  at  the  end  of  this  time 
the  objectives  have  not  been  met,  another  walkthrough  is  scheduled. 

3.1. 4.5.6  All  technical  members  of  the  project  team  have  their  work  product 
reviewed.  The  structured  walkthrough  increases  the  value  of  these  reviews 
beyond  a determination  of  schedule  variance  and  problem  identification,  and 
eliminates  many  negative  aspects. 

3. 1.4.5. 7 Specification  Wn i V wm» gh  - This  type  of  walkthrough  is  done  in 
the  first  stages  of  the  system.  Its  purpose  is  to  look  for  problems  or 
omissions  in  thd  system  specifications.  This  type  of  walkthrough  would  be 
attended  by  the  user,  systems  analyst,  and  one  or  more  of  the  project 
programers. 

3. 1.4.5. 7. 2 Design  Walkthrough  - This  walkthrough  would  be  used  to  detect 
weaknesses,  misrepresentation  of  ideas,  or  omissions  in  the  design  structures, 
of  the  system.  The  people  that  should  attend  this  walkthrough  are  the  system 
analyst,  senior  programer  (Chief  Programer)  and  possible  all  the  other 
programers  as  well.  The  documents  used  in  this  walkthrough  would  be  the 
structure  charts  and  data  flow  graphs. 

3. 1.4. 5. 7. 3 Code  Walkthrough  - In  this  walkthrough,  the  two  types  of  code 
are  reviewed.  These  two  types  of  code  are  the  Program  Design  Language  (PDL) 
or  Pseudo  Code  that  is  designed  by  the  analyst  in  an  English-like  form, 

and  after  this  PDL  is  walked  through  and  certified  as  correct  by  people 
other  than  the  author,  then  the  programer  prepares  the  source  code  from 
this  PDL.  Then,  this  source  code  is  reviewed  and  certified  as  correct  by 
people  other  than  the  author  of  the  source  code.  The  certification  should 
be  performed  by  people  other  than  the  author  for  every  code  walkthrough. 

The  people  that  should  attend  this  walkthrough  are  the  author  of  the  code, 
other  programers  on  the  team,  and  possibly,  some  programers  from  outside 
the  team. 

3. 1.4. 5. 7. 4 Test  Walkthrough  - This  walkthrough  is  performed  after  the 
source  code  has  been  certified.  It  is  performed  to  ensure  the  adequacy  of 
the  test  data  for  the  system.  This  walkthrough  does  not  examine  the  output 
of  the  test  data.  People  that  should  attend  this  walkthrough  are  the  user, 
all  the  programers  on  the  project,  the  person  performing  the  testing  and 
the  systems  analyst. 

3. 1.4. 5. 8 In  addition  to  all  the  various  groups  of  people  stated  in  these 
four  types  of  walkthroughs,  the  librarian  should  be  present  at  most  walk- 
throughs, depending  on  his/her  workload.  It  is  the  librarian's  job  to 
record  Items  in  question,  the  results,  records  items  accomplished  and  at 
the  conclusion  of  each  walkthrough,  distribute  a copy  of  all  items  from 
above  to  all  members  that  were  present  at  that  specific  walkthrough.  If 
the  librarian  is  not  able  to  attend  a walkthrough,  someone  else  in  the  group 
should  be  appointed  to  act  as  librarian. 

3. 1.4.6  Chief  Programer  Team  (CPT).  The  team  operation  has  as  its  core,  the 
chief  programer,  the  backup  programer,  and  the  librarian.  The  chief  programer 
Is  responsible  for  the  complete  development  of  the  programing  system.  The 
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chief  programer  identifies  and  apportions  assignments,  constructively 
criticizes  progress  on  design  and  coding,  attends  to  career  planning 
for  his  subordinates,  and  regularly  performs  the  appraisal  and  counseling 
of  team  operation.  The  backup  programer  is  an  alternate  to  the  chief 
programer.  He  can  assume  the  chief  programer' s responsibility 
temporarily  or  permanently.  Because  of  the  close  working  relationship 
and  code  review  practices,  both  understand  all  the  code  produced  by 
the  team. 

3. 1.4. 6.1  Libiarian.  A programer  technician  or  specially  trained 
secretary  that  is  an  integral  member  of  the  Chief  Programer  Team.  The 
librarian’s  duties  are  largely  clerical  that  consist  of  the  following: 
key  punching,  submitting  jobs,  maintaining  program  production  library, 
and  taking  formal  notes  at  structured  walkthroughs. 

3. 1.4. 6. 2 Support  Members.  The  team  operation  may  require  additional 
support  to  complete  the  project.  People  who  serve  on  the  team  - programers, 
analysts,  and  technicians  - are  chosen  for  their  special  skills.  Their 
period  of  service  may  range  from  a few  months  to  a period  just  under 

the  length  of  the  project. 

3. 1.4. 7 NINE  STEP  MODULE  MANAGEMENT  PROCESS.  The  nine  step  module 
management  process  developed  and  refined  by  the  VIC  project  provides  a 
sound  basis  for  the  determination  of  software  development  status.  This 
procedure  should  be  considered  for  software  production  and  control 
procedures.  The  steps  are  as  follows: 

3. 1.4. 7.1  Step  1 Module  Identified.  The  module  is  identified  as  a firm 
requirement,  its  position  on  the  total  system  structure  chart  relative  to 
superordinate  and  subordinate  module  is  determined,  and  a module  number 
has  been  assigned. 

3. 1.4. 7. 2 Step  2 Module  Documented.  The  systems  analysis  and  design 
have  been  completed,  and  a package  of  documentation  for  the  module  has 
been  prepared  for  presentation  to  the  functional  proponent. 

3. 1.4. 7. 3 Step  3 Joint  Review  of  Module.  A joint  review  of  the  module 
has  been  conducted  in  a walk  through  environment  with  the  functional 
proponent  for  functional  modules,  or  the  design  manager  for  data 
modules,  and  an  action  list  detailing  required  changes  has  been  prepared. 

3. 1.4. 7. 4 Step  4 Module  Accepted.  Any  corrections  required  by  the  joint 
review  have  been  made,  the  module  package  is  considered  complete,  has 
been  formally  accepted,  and  is  ready  for  programing. 

3. 1.4. 7. 5 Step  5 Module  Coded  and  Compiled.  The  module  extended 
description  has  been  jointly  reviewed  by  the  chief  programer  and  back 
up  to  ensure  complete  understanding  of  the  requirements.  The  module  has 
been  coded  and  cleanly  compiled  and  it  is  considered  ready  for  quality 
assurance  review. 

3. 1.4. 7. 6 Step  6 Module  Test  Plan  Complete.  A test  plan  has  been 
completed  for  the  major  function  of  which  this  module  is  part,  incorporating 
all  of  the  conditions  (TCR's)  necessary  to  test  this  module,  showing  the 
sequence  of  testing  for  each  condition,  and  the  expected  output  for  each 
condition. 
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3. 1.4. 7. 7 Step  7 Module  Quality  Assurance  Review.  A quality  control  review 
has  been  held  to  ensure  that  the  compiled  code  complies  with  all  necessary 
USACSC  standards,  inhouse  conventions,  structured  coding  conventions,  and 
that  the  code  should  perform  the  functions  described  in  the  approved 
extended  description.  In  addition,  the  test  plan  has  been  reviewed  and 
approved  as  being  comprehensive  enough  to  adequately  satisfy  testing 
requirements. 

3. 1.4. 7. 8 Step  8 Module  Linked.  All  corrections  required  by  the  quality 
control  review  have  been  applied,  the  module  has  been  cleanly  compiled  and 
is  linked  to  the  library  and  is  ready  for  testing.  The  test  data  (TCR's) 
are  available  and  testing  can  begin. 

3. 1.4. 7.9  Step  9 Module  Ready.  All  processing  functions/conditions  per- 
formed/encountered by  the  module  ha>  e been  tested  to  the  satisfaction  of 
the  software  development  team  and  the  module  is  considered  to  be  ready 
for  full  scale  systems  testing  utilizing  proponent  developed  test  data 

3.1.5  GENERAL  STANDARDS  AND  GUIDELINES.  There  are  two  types  of  conventions  * 
followed  when  writing  structured  programs  - standards  and  guidelines. 

Standards  are  those  conventions  which  are  to  be  followed  without  deviation. 

However,  a waiver  is  available  to  consider  justifiable  requests  for 
deviations  from  the  standard.  Guidelines  are  recommendations  which  can 
be  followed  exactly  or  with  appropriate  local  deviation.  Thus,  standards 
to  achieve  maximum  benefit  should  be  enforced  throughout  an  organization. 

Guidelines  should  be  modified  as  appropriate  for  a particular  project 
or  system  development.  The  use  of  a specific  set  of  control  strucutures 
is  a standard.  The  indentation  of  source  code  is  a standard;  the  number 
of  columns  indented  is  a guideline. 

3. 1.5.1  STANDARDS . Certain  standards  must  be  followed  in  order  to 
implement  SP.  These  are: 

3. 1.5. 1.1  Every  code  segment  should  contain  a single  entry  and  a single  exit.  j 

3. 1.5. 1.2  Explicit  branching  (GOTO  type  instructions)  usage  is  restricted  to 
emergency  type  exits,  i.e.,  specific  compiler  bugs  or  inefficiencies,  data 
error,  and/or  panic  abort. 

3. 1.5. 1.3  The  beginning  and  end  of  any  program  or  control  segment  must  be 
completely  contained  in  a single  structured  segment. 

3. 1.5. 1.4  In  free  format  languages,  only  one  verb  per  line  of  code  is 
permitted. 

3. 1.5. 1.5  Indentation  to  indicate  the  span  of  control  of  a structured 

figure  must  be  used.  j 

These  standards  are  language  independent.  They  are  based  directly  on  the 

structure  theorem,  or  on  the  intent  to  make  computer  programs  as  readable  j 

as  possible. 
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The  ANS  COBOL  standards  which  are  indicated  in  this  chapter  are  intended  to  serve 
as  a base  upon  which  production  structured  programing  can  be  implemented.  They 
should  be  evaluated  continuously,  and  as  experience  dictates,  improvements  shoulr’ 
be  incorporated  into  the  standards. 

3. 1.5.2  GUIDELINES.  In  addition  to  specifying  the  ANS  COBOL  language  dependent 
standards  for  implementing  the  control  logic  structures,  this  section  also 
contains  other  recommendations  which  may  be  considered  as  guidelines.  This 
covers  such  items  as  indentation  rules,  grouping  of  data,  data  formats,  etc. 

The  most  important  consideration  with  respect  to  guidelines  is  not  that  the 
ones  described  be  implemented  exactly  as  indicated  but  rather  that,  for  a 
given  project,  conventions  be  established  for  the  indicated  areas,  and  then 
applied  uniformly  throughout  the  entire  project. 

* 3.1.6  ANS  COBOL  LANGUAGE  STANDARDS  AND  GUIDELINES.  This  paragraph  provides 

standards  and  guidelines  for  SP  software  development  in  ANS  COBOL.  It  has 
also  been  assumed  that  the  reader  is  familiar  with  both  the  ANS  COBOL  syntax 
and  terminology  in  Chapter  2 of  this  manual. 

If  the  suggested  standards  for  ANS  COBOL  outlined  in  this  section  are 
followed,  it  is  possible  to  implement  the  SP  control  structures  without  the 
assistance  of  any  support  software. 

3. 1.6.1  GENERAL  COMMENTS.  The  two  statements  IF... ELSE  and  PERFORM,  which 
are  part  of1  the  ANS  COBOL,  supply  the  basic  structuring  capability  of  the 
language.  The  first  represents  the  IFTHENELSE  control  figure  while  the 
PERFORM  permits  the  looping  required  by  the  DOWHILE/DOUNTIL  construct. 

In  addition,  the  GO. .. .DEPENDING  ON  is  readily  adapted  to  the  simulation 
of  the  CASE  statement,  the  COPY  assists  in  top  down  programing,  and  the 
language's  SEARCH  statement  which,  while  limited,  recognizes  the  potential 
utility  of  such  a control  logic  structure. 

3. 1.6. 2 COBOL  DECLARATIVES  SECTION.  If  present,  must  appear  at  the  start 
of  the  PROCEDURE  DIVISION.  The  code  in  this  section  is  invoked  asynchronously 
by  certain  conditions  which  cannot  normally  be  tested  by  the  programers. 

These  conditions  include  input/output  label  handling  procedures,  input/output 
error  checking  procedures,  and  report  writing  procedures. 

3.1.7  STRUCTURED  COBOL. 


3. 1.7.1  Structured  COBOL  is  a concept  of  writing  COBOL  programs  that  are 
designed  in  a top-down  modular  fashion.  They  have  all  the  characteristics  of 
structured  programing  except  the  structured  programing  logic  structures 
(SEQUENCE,  DOWHILE,  DOUNTIL,  IFTHENELSE,  CASE),  have  to  be  simulated  using 
actual  COBOL  statements.  To  simulate  structured  COBOL,  each  construct 
has  to  be  simulated  as  shown  at  paragraph  3. 1.7. 3 of  this  chapter.  Structured 
COBOL  gives  the  advantage  of  being  able  to  implement  structured  programing 
without  using  the  structure  verbs. 
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EXAMPLE  OF  STRUCTURED  COBOL  WITH  NESTED  IF  STATEMENTS. 

Figure  3-4  shows  a flowchart  with  a nested  decision  and  its  corresponding  code 
in  structured  COBOL. 


Indentation  should  be  as  indicated  in  the  example.  As  may  be  noted,  code  is 
indented  beneath  the  IF  and  ELSE  in  order  to  emphasize  the  span  of  control  of 
these  verbs.  Since  no  unique  terminator  is  available,  the  end  of  the  figure 
is  indicated  by  the  start  of  a new  code  block  in  the  same  column  as  the  IF 
and  ELSE. 
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3. 1.7. 2 STRUCTURED  CODING  (SC).  Structured  Coding  (SC)  is  based  on  the 
mathematically  proven  Structure  Theorem,  originally  formulated  by  Bohm  and 
Jacopini,  which  states  that  any  proper  program  (a  program  with  one  entry 
and  one  exit)  is  equivalent  to  a program  that  contains  as  logic  structures 
only: 

Sequences  of  two  or  more  operations. 

Conditional  br?nch  to  one  of  two  operations  and  return 
(IF  a THEN  b ELSE  c) . 

Repetition  of  an  operation  (DOWHILE  p) . 

Each  of  the  three  figures  itself  represents  a proper  program.  A large  and 
complex  program  may  then  be  developed  by  the  appropriate  sequencing  and 
nesting  of  these  three  basic  figures.  The  logic  flow  of  such  a program 
always  proceeds  from  the  beginning  to  the  end  without  arbitrary  branching. 
When  only  these  structures  are  used  in  the  programing,  there  are  no 
unconditional  branches  or  statement  labels  to  which  to  branch.  SP  reduces 
the  arrangement  of  the  program  logic  to  a process  similar  to  that  found  in 
engineering  where  logic  circuits  are  constructed  from  a basis  set  of 
figures.  As  such,  it  represents  a standard  based  on  a solid  theoretical 
foundation.  It  does  not  require  ad  hoc  justification,  case  by  case,  in 
actual  practice. 

Several  other  practices  are  included  as  a supporting  part  of  the  techniques. 
For  example,  strict  attention  is  paid  to  the  indentation  of  the  logic 
structures  on  the  printed  page  so  that  logical  relationship  in  the  coding 
correspond  to  physical  position  on  the  listing.  Thus,  a pictorial 
representation  of  the  logic  is  gained  from  the  indentation.  Another  practice 
is  that  of  segmenting  code  into  reasonable  and  logical  amounts  of  code 
that  are  each  easily  understood.  Each  segment  of  code  (whose  internal 
operations  may  be  any  combination  of  the  basic  logic  structures)  must 
itself  represent  one  of  the  basic  logic  structures.  Thus,  each  code 
segment  becomes  a logical  entity  to  be  analyzed,  coded,  and  read  at  one 
time. 

Two  extensions  to  the  three  basic  logic  structures  (DOUNTIL  and  CASE)  have 
been  defined,  to  improve  readability  of  source  code.  These  do  not  affect 
the  spirit  of  SP  and,  in  some  cases,  may  result  in  more  efficient  use  of 
computer  time  and  storage.  DOUNTIL  provides  an  alternate  form  of  looping 
structure.  It  differs  from  DOWHILE  in  that  the  condition  is  tested  after 
the  operation  rather  than  before.  CASE  is  a multi-branch,  multijoin 
control  structure  used  to  express  the  processing  of  one  of  many  possible 
cases.  Reference  Figure  3-5  for  graphic  representations  of  three  basic 
logic  structures  and  the  two  extensions. 

3. 1.7.2. 1 USE  OF  SUBROUTINES.  While  the  use  of  the  control  logic  figures 
eliminates  the  necessity  of  writing  any  explicit  branch  or  GOTO  statements 
(except  for  simulation  purposes),  it  is  not  intended  to  preclude  the  use 
of  CALL/RETURN  logic  to  invoke  subroutines.  In  fact,  such  subroutine 
linkages  are  an  essential  feature  of  TDSP  and  their  use  is  encouraged. 

3. 1.7. 3 COMPARISON  OF  THE  FIVE  LOGIC  STRUCTURES  VERSUS  THE  EQUIVALENT  IN 
STRUCTURED  COBOL.  The  following  are  examples  of  how  structured  COBOL  can  be 
achieved  without  using  the  structure  verbs. 
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* 3. 1.7. 3.1  SEQUENCE  LOGIC  STRUCTURE.  The  sequence  figure  is  a simple  construct. 

There  is  no  differences  from  using  this  figure  in  conversion  to  structured  COBOL. 
Each  COBOL  statement  should  start  a new  line.  Any  statement  not  subject  to 
indentation  rules  starts  in  the  same  column  in  which  the  statement  above  it 
started.  Only  one  statement  per  line  is  permitted.  If  any  statement  must  be 
continued  on  the  next  line,  the  continued  portion  should  be  indented  4 columns 
so  as  not  to  obscure  the  COBOL  verb. 


Example  of  sequence  logic  structure  is  as  follows: 


SEfUENCE 


With  the  next  four  logic  structures,  the  indentation  for  the  structured  COBOL 
code  should  be  as  shown. 


3. 1.7. 3. 2 IFTHENELSE  LOGIC  STRUCTURE , The  1FTHENELSE  figure  causes  control  to 
be  transferred  to  one  of  two  functional  blocks  of  code  (A  or  B)  based  on  the 
evaluation  of  a logical  expression  (p) . The  flowchart  for  the  IFTHENELSE  figure 
is: 

I 


t 


I 


1 
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The  ELSE  in  the  IFTHENELSE  figure  is  optional  and,  if  not  used,  the  flowchart 
reduces  to: 


Since  the  ELSE  is  also  optional  in  the  COBOL  conditional  statement,  the  code 
becomes: 


Hie  implementation  of  this  control  structure  using  the  conditional  statement  for 
structured  COBOL  is  as  follows: 
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* 3. 1.7. 3. 3 DOWHILE  LOGICAL  STRUCTURE.  The  flowchart  for  the  DOWHILE  control 

structure,  which  is  a looping  operation  in  which  the  test  for  loop  termination 
precedes  the  code  block,  is  as  follows: 


The  structured  COBOL  equivalent  of  this  DOWHILE  is  as  follows: 
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Indexing  is  also  a part  of  the  language  and  is  written  as: 
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Note  that  while  the  indexing  is  varied  automatically,  the  decision  as  to  when 
to  terminate  the  loop  is  still  under  control  of  the  UNTIL  rather  than  whether 
the  indexing  has  reached  some  limit. 

Finally,  the  option  exists  to  perform  a block  of  code  a specified  number. 
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Since,  for  all  PERFORMS,  the  repetitive  code  must  be  placed  out-of-line,  there 
is  no  indentation  requirements  for  these  statements.  However  for  the  indexed 
PERFORM  (which  can  be  written  with  up  to  three  indexing  variables),  it  is 
suggested  that  the  format  of  the  example  shown  in  this  subsection  be  adopted 
where  words  which  control  the  indexing  are  indented  further  to  the  right  than 
the  UNTIL  so  that  the  conditions  for  loop  termination  are  emphasized. 


3. 1.7. 3. 4 DOUNTIL  LOGIC  STRUCTURE.  The  DOUNTIL  control  structure  is  one  in 


which  the  looping  criteria  are  tested  at  the  end  of  the  loop,  and  thus  the 
code  block  is  always  executed  at  least  once.  The  flowchart  is  as  follows: 


An  example  of  the  DOUNTIL  as  converted  to  structured  COBOL  is  as  follows: 
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3. 1.7. 3. 5 CASE  LOGIC  STRUCTURE.  The  CASE  figure  causes  control  to  be  passed  to 
one  of  a set  of  function  blocks  of  code  (A,  B,  . ..,  Z)  based  on  the  value  of  an 
integer  variable.  The  flowchart  for  this  figure  is: 


The  CASE  statement  for  structured  COBOL  uses  the  GO  TO. .. .DEPENDING  ON  statement. 
This  verb  permits  the  programer  to  select  one  of  a set  of  procedures  depending 
upon  the  value  of  an  integer  whose  range  is  from  1 to  the  number  of  procedure 
names  listed  in  the  statement.  For  any  integer  outside  these  limits  to  GO  TO 
statement  is  ignored  and  control  passes  to  the  statement  which  follows  it.  This 
means  that  default  code,  if  required,  should  immediately  follow  the  GO  TO... 
DEPENDING  ON  statement.  At  least  one  paragraph  name  is  required.  An  example 
is  as  follows: 
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Note  that  the  PERFORM. . .THRU  option  of  the  PERFORM  statement  must  be  used  because 
of  the  presence  of  the  paragraph  names  which  are  used  to  identify  the  various 
case  statements. 

3. 1.7.4  INCLUDE  CAPABILITY.  The  capability  of  nesting  blocks  of  code  within 
other  code  blocks  is  a necessity  for  top  down  programing.  This  is  best  done 
when  such  blocks  of  code  are  stored  and  can  be  accessed  by  the  ANS  COBOL  COPY 
verb  as  separate  members  on  a direct  access  device  in  a library  system.  However, 
it  should  be  noted  that  this  requirement  is  a compiler  dependency  and  may  not 
be  possible  for  some  ANS  compilers.  The  COPY  verb  may  be  used  in  all  divisions 
except  the  IDENTIFICATION  DIVISION.  The  discussion  which  follows  is  directed 
toward  its  use  in  the  PROCEDURE  DIVISION.  Since  the  COPY  does  not  permit  nesting, 
it  is  necessary  to  simulate  this  requirement  with  the  use  of  nested  PERFORM 
statements.  The  blocks  of  code  which  are  PERFORMed  are  presumably  stored  as 
separate  members  which  are  easily  accessed  on  a direct  access  device  and  are 
referenced  for  the  COBOL  compiler  by  means  of  COPY  statements.  This  means  that 
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no  COPY  may  appear  in  any  block  of  code  which  is  invoked  by  a copied  PERFORM 
With  this  technique  the  top  level  of  the  PROCEDURE  DIVISION  looks  as  follows 
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Note  that  the  COPY  statement  references  library  names,  not  paragraph  names. 
"NESTED- PARAGRAPH- 1"  is  a separate  block  of  code  which  the  COPY  statment  can 
access  and  may  take  the  following  form: 
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3. 1.7.3  as  a requirement  for  the  structured  COBOL  Technology, 
statement  will  not  be  used. 


The  ALTER 


3. 1.7. 5. 2 PROGRAM  ORGANIZATION. 


3. 1.7. 5. 2.1  The  structure  of  a COBOL  program  is  such  that  many  of  the  rules 
for  program  organization  have  been  predefined.  For  instance,  all  data  must  be 
specified  in  the  DATA  DIVISION.  Furthermore,  within  this  section,  the  formal 
rules  which  define  the  permissible  hierarchical  data  structures  are  sufficient 
to  preserve  the  readability  requirements  of  SP.  However,  within  the  PROCEDURE 
DIVISION  (with  the  exception  of  the  DECLARATIVE  SECTION) , the  rules  of  COBOL 
permit  the  ordering  of  PERFORMed  code  blocks  to  be  completely  flexible. 


j 


3. 1.7. 5. 2. 2 If  the  program  is  being  developed  with  the  aid  of  a library  system, 
the  order  in  this  division  is  less  critical  since  all  that  appears  after  the  top 
most  segment  are  COPY  statements.  The  functions  which  exist  in  the  copied  code 
and  the  functions  which  are  nested  within  them  are  determined  by  examining  the 
small  code  segments  which  are  present  as  printed  listings  of  members  in  the 
source  code  library  rather  than  on  the  compiler output  listing  even  though  it 
is  still  true  that  the  resolution  of  the  COPY  statements  by  the  compiler  will 
produce  a complete  source  program  as  one  of  the  compiler  outputs.  However, 
for  a development  process  in  which  no  random  access  library  exists,  the 
ordering  of  the  segments  of  PERFORMed  COBOL  paragraphs  in  the  Procedure  Division 
is  more  critical.  This  is  because  the  source  listing  under  this  condition  is  a 
single  sequential  data  set.  At  present,  the  suggested  sequence  is  intially  by 
nested  level  for  2 or  3 levels  (depending  on  the  program's  complexity)  and 
alphabetically  thereafter. 


3. 1.7. 5. 2. 3  PERFORMed  paragraphs  should  be  separated  from  the  main  body  of  code, 
and  from  other  PERFORMed  paragraphs,  by  at  least  two  blank  lines.  Logically 
non- contiguous  paragraphs  (other  than  those  used  in  the  CASE  figure)  should  be 
separated  by  at  least  one  blank  line. 


3. 1.7.5. 3 COMMENTS . One  of  the  primary  intents  of  the  developers  of  the  COBOL 
language  was  to  produce  a self-documenting  language.  When  this  is  coupled  with 
the  discipline  of  SP,  the  resulting  programs  should  be  even  more  readable. 
Experience  has  indicated  that  well  written  COBOL  programs  contribute  toward 
meeting  this  objective.  Therefore,  it  is  recommended  that  the  use  of  comments 
in  the  form  of  NOTE  sentences  and  NOTE  paragraphs  be  held  to  a minimum.  When 
they  are  used,  they  should  be  organized  in  such  a manner  as  not  to  interfere 
with  the  readability  of  the  program  itself.  This  may  be  done  by  such  devices 
as  using  blank  lines  to  insure  that  the  NOTE  text  stands  apart  from  the  program 
proper  and  starting  and  concentrating  the  textual  commentary  in  the  middle  of 
the  pages  beginning  in  Column  3S-40. 

3. 1.7. 5. 4 INDENTATION  AND  FORMATTING  CONVENTIONS.  VariaMes  and  structures 
defined  in  the  DATA  DIVISION  should  be  arranged  in  a meaningful  order.  This 
order  could  be  alphabetic,  by  class  such  as  the  days  of  the  week,  or  any  other 
class  format.  A suggested  set  of  indentation  rules  for  data  items  is  as 
follows: 
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3. 1.7. 5. 4.1  GENERAL  I ORMAT.  All  level  77  and  01  variables  should  have  their 
level  numbers  in  columns  8-9  and  names  starting  in  column  12.  The  PICTURE 
clause  should  be  between  columns  32-45,  depending  on  the  length  of  the  longest 
variable  name.  All  other  clauses  used  should  follow  the  PICTURE  clause  with 
normal  spacing.  If  more  than  one  line  is  needed  for  a variable's  definition, 
the  second  and  succeeding  lines  should  be  indented  from  the  PICTURE  clause  as 
follows: 
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3. 1.7. 5. 4. 2 STRUCTURES . Each  successively  lower  level  in  a structure  should 
be  indented  four  columns  from  the  next  higher  level.  Level  numbers  should 
precede  each  variable  name  in  the  structure  on  the  same  line  and  two  columns 
before  it  as  follows: 
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When  condition-names  (level  88  items)  are  used,  they  should  be  indented  and 
written  with  single  spacing  between  words: 
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CHAPTER  4 


FORTRAN  PROGRAMING  PROCEDURES 


4.1  INTRODUCTION.  This  section  used  in  conjunction  with  Chapter  I, 
will  be  used  as  a guide  for  the  design  and  programing  of  applications 
software  that  will  be  translated  by  the  FORTRAN  compiler. 


4.2  DESIGN  CONSIDERATIONS.  Prior  to  programing  of  an  applicable 
program,  a search  should  be  made  for  existing  programs  and  subroutines 
that  might  be  used,  either  intact  or  modified.  Top  Down  design  should 
be  taken  into  consideration  when  designing  FORTRAN  systems.  Although 
FORTRAN  does  not  lend  itself  fully  to  structured  programing,  the  use  of 
structured  formatting,  one  entrance,  one  exit,  top  down  design  with  a 
minimal  use  of  "GO  TO"  is  beneficial  to  a successful  operation. 


4.2.1  Modularity.  Programs  should  be  constructed  in  modular  fashion. 
They  should  be  broken  down  into  distinct  logical  segments  (subroutines) . 
This  practice  will  make  programs  far  easier  to  write,  test,  maintain,  and 
modify.  Subroutines  and  function  names  when  feasible,  should  be 
contractions  or  acronyms  that  can  be  related  to  the  processes  they  are 
effecting. 


4.2.2  Library  Functions.  Maximum  use  should  be  made  of  basic,  existing 
intrinsic  functions  and  of  external  functions.  The  programer  can  waste 
valuable  time  and  core  storage  creating  code  internal  to  his  routine  that 
could  be  implemented  using  functions. 


4.2.3  Input/Output  Functions.  I/O  functions  in  FORTRAN  programs,  as  in 
all  other  compilers,  are  best  handled  by  the  Executive  Control  Program 
(supervisory  routine).  The  applications  programer  should  not  attempt  to 
initiate  I/O  operations  directly,  but  should  use  the  compile  provided 
READ  and  WRITE  statements. 


4.2.4  Real  and  Integer  Data.  The  programer  should  assure  that  the  data 
is  identified  with  the  correct  data  type.  For  instance,  double  precision 
real  data  type  should  not  be  used  if  single  precision  or  integer  data  type 
would  suffice. 


4.3  PROGRAM  STRUCTURE.  Programs  consist  of  statements  which  are  in  turn 
composed  of  characters  grouped  according  to  the  following  conventions: 
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4.3.1  Source  Card  Coding.  FORTRAN  statement  source  cards  will  use  the 
following  card  columns.  Up  to  19  Continuation  cards  permitted. 

COLUMN  USE 

1-5  Statement  Label 

6 Continuation  if  not  0 

or  blank 

7-72  Statement 

73-80  Sequence 

4.3.1.  Comment  Cards.  FORTRAN  comment  source  cards  use  the  following 
card  columns: 

COLUMN  USE 


! 

■ 


1 C indicates  comment 

2-72  Comment  verbiage 

73-80  Sequence  numbers 

4. 3. 1.2  Sequence  Numbers.  A sequence  number,  consisting  of  six  digits  in  the 
sequence  number  area,  is  used  to  numerically  label  each  card  image  in  a source 
program  to  be  compiled  by  the  FORTRAN  compiler.  The  use  of  coded  sequence 
numbers  is  optional  since  USACSC  Source  Library  System  (SLS)  will  automat- 
ically assign  sequence  numbers  when  extracting  a source  program.  However, 
it  is  recommended  that  sequence  numbers  be  assigned  when  coding.  Sequence 
numbers  should  be  incremented  by  10.  Alpha  characters  are  strongly  rec- 
ommended for  continuation  sequence  numbering. 


1 

1 


4. 3. 1.3  Statement  Labeling.  Statements  may  be  labeled  (numbered)  so  that 
reference  may  be  made  to  them  by  other  statements.  Statement  labels  are 
placed  in  columns  1 through  5 of  the  statement.  Leading  zeros  are  insignif- 
igant.  From  one  to  five  numeric  characters  may  be  used.  The  statement 
label  must  be  unique  within  the  program  unit.  Statements  should  not  be 
labeled  unnecessarily.  The  statement  label  numbers  should  increase  from 
physical  beginning  to  physical  end  of  the  executable  statements.  This  permits 
easy  following  of  transfers.  Using  a separate  and  distinct  block  of  state- 
ment numbers  in  different  sections  of  the  program  emphasizes  its  structure 
and  helps  prevent  accidental  duplication  of  statement  numbers.  At  the 
initial  writing  of  a program,  leave  gaps  of  about  100  between  successively 
numbered  statements  to  ease  later  insertions  of  statements. 
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4. 3. 1.4  Statement  Ordering.  Place  specification  statements  (e.g., 
DIMENSION,  COMMON)  at  the  beginning  of  the  program . This  way  they  are 
easy  to  find  and  do  not  interrupt  the  executable  statement  logic  flow. 
Furthermore , some  compilers  reject  these  statements  if  they  are  not 
placed  first.  Place  FORMAT  statements  where  they  are  easy  to  find. 

One  method  is  to  group  them  all  at  the  beginning  or  end  of  the  program. 
Also  acceptable  is  to  place  the  FORMAT  statement  immediately  following 
the  I/O  statenent  which  referenced  it,  provided  that  the  FORMAT  state- 
nent so  placed  Is  not  multiply  addressed. 

4. 3.1. 5 Symbolic  Names.  Symbolic  names  are  composed  of  1-6  alpha- 
numeric characters  of  which  the  first  must  be  alphabetic.  In  naming 
variables,  use  names  beginning  with  I through  N for  integer  variables, 
and  names  beginning  with  A through  H and  0 through  Z for  other  variables. 
This  widely  accepted  convention  reduces  confusion.  A type  declaration 
overrides  the  implied  association.  Starting  a variable  name  with  charac- 
ters I through  N is  an  implied  (integer,  length  4)  declaration  to  the 
compiler. 

4.3.2  FORTRAN  Character  Set.  The  Fortran  character  set  consists  of 
the  26  alphabetic  characters  A through  Z,  the  10  numeric  characters  0 
through  9 . and  the  11  following  special  characters  1 

CHARACTERS  NAME  OF  CHARACTER 

Blank 

* Equal 

+ Plus 

- Minus 

* Asterisk 

/ Slash  or  Virgule 

( Left  Parenthesis 

) Right  Parenthesis 

, Comma 

. Decimal  Point 
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Currency  Sign 
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NOTE i In  addition  to  the  FORTRAN  character  set  listed  in  4.3.2,  any 
other  characters  acceptable  to  the  applicable  processor  nay  be  used  In 
HOLLERITH  TYPE  statements. 

4.3.3  Operators  Used  In  Fortran  Progress. 

4. 3. 3.1  Arithmetic  expressions  are  formed  using  the  following  arithmetic 
operations! 

OPERATOR  MEANING 


+ 

Addition,  positive 
value 

(sero  + element) 

Subtraction,  negative 
value 

(sero-element) 

* 

Multiplication 

/ 

Division 

** 

Exponentatlon 

4. 3. 3.2  Relation  Operators.  Relation  operators  are  used  with  two 
arithmetic  expressions  and  will  have  a true  or  false  result  depending 
the  relation.  The  relational  operators  used  are  1 

OPERATOR 

MEANING 

.LT. 

Less  than 

.LE. 

Less  than  or  equal  to 

.EQ. 

Equal  to 

,NE. 

Not  equal  to 

.GT. 

Greater  than 

.GE. 

Greater  than  or  equal  to 

4. 3«3»3  Logical  Operators.  Logical  expressions  are  formed  with 
logical  operators  and  logical  elements  and  have  a true  or  false  value. 
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The  logical  operators  are: 

OPERATORS  MEANING 

.OR.  Logical  disjunction 

.AND.  Logical  conjunction 

.NOT.  Logical  negation 

4. 3. 3. 4 Additional  Information.  Use  parenthesis  to  make  arithmetic 
expressions  completely  unambiguous.  The  expression  A**B**C  Is  computed 
from  right  to  left  by  some  compilers;  left  to  right  by  others.  In 
general,  replace  complicated  compound  expressions  by  simpler  operations 
when  possible.  This  might  be  accomplished  by  single  variables  pre- 
viously set  to  the  values  of  the  expressions. 

4.4  ARRAYS.  Do  not  needlessly  combine  into  one  array  what  could 
separate  arrays  with  fewer  dimensions  (e.g.,  use  A(10,6),  B(10,5)  C(10,4) 
rather  than  ABC  (10,6,3).  Similarly  do  not  needlessly  form  a single 
dimension  array  from  what  could  be  single  variables.  The  time  and 
storage  required  for  Index  manipulation  Increases  as  the  number  of 
dimensions  increase.  Arrays  shall  have  the  same  length  in  all  routines 
In  which  they  are  referenced  unless  the  array  is  an  adjustable  array 
(i.e.,  the  array  and  its  dimensions  are  dummy  argument").  Arrays  shall 
have  no  more  than  three  dimensions. 

4.5  VARIABLE  NAMES.  Whenever  possible  use  variable  names  that  are 
relatable  to  the  context  of  the  problem  the  program  is  to  solve  and  that 
correspond  to  notation  or  terminology  in  the  block  diagram  and  program 
documentation.  This  helps  make  the  listing  self-explanatory  and  relates 
it  to  the  flow  chart  and  associated  documents.  Use  variable  names  for 
quantities  that  might  be  expressed  as  constants  but  could  have  to  assume 
another  value  at  a later  date. 

4.6  PROGRAM  COMMENTS. 

/ 

4.6.1  Meaningful  Comments.  Make  your  program  self-explanatory  by 
including  meaningful  comments  throughout.  Since  most  programs  outlive 
their  authors'  responsibility  for  them  and  because  no  computer  is 
permanent,  your  program  will  be  modified  according  to  new  machine, 
software,  or  performance  requirements.  Depending  on  the  complexity  of 
the  program,  the  number  of  necessary  comments  varies,  but  usually  the 
ratio  of  comments  to  statements  should  be  at  least  1:5.  Commentary 
shall  not  be  included  on  FORTRAN  statements. 
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4.6.2  Identification  of  Program  in  a Coanent.  Identify  the  program 
in  a comment  at  the  beginning  of  the  listing.  Comments  should  follow 
this  card  to  provide  a program  abstract  answering  such  questions  asi 
What  does  the  program  do?  Is  it  confined  to  any  particular  application? 
Is  It  a special  version?  Vby  was  it  written  by  whoa,  and  when?  Is  it 
derived  from  or  directly  related  to  another  program?  Are  any  relevant 
references  published? 


4.6.3  Program  Modification.  Program  modification  should  be  noted  by 
the  date  and  number  of  the  modification ' (1,2,3. •••• ) and  the  name  of  the 
programer  making  it,  i.e., 


MODIFICATION 


DATE  OF 


PROGRAMER 


NUMBER 


CHANGE 


YY/MM/DD 


H.  L.  JONES 


4.6.4  Program  Comments  for  Subroutines.  For  a subroutine,  comments 
describing  the  calling  sequence  should  follow  the  identification  inform- 
ation. Identify  each  argument  as  input,  input/output,  or  ouputi  and 
explain  its  purpose,  type  dimension,  etc.  The  different  values  that  an 
indicator  (such  as  an  error  code)  can  assume  should  be  defined  for  both 
input  and  output. 


4.6.5  Distribute  Comment.  Distribute  comments  describing  and  summar- 
izing the  computation  appropriately  throughout  the  listing.  These 
should  correspond  in  terminology  to  the  program  block-diagram.  Clever 
but  possibly  obscure,  coding  should  be  explained  in  detail.  In-line 
commentary  should  identify  the  purpose  of  every  control  statement.  A 
control  statement  is  defined  as  one  which  conditionally  alters  a data 
value  or  which  alters  the  sequential  execution  of  statements.  For  ease 
of  reading,  comments  may  be  grouped  at  the  beginning  of  a set  of  log- 
ically contiguous  statements.  As  a minimum,  in-line  comments  should 
precede  blocks  of  one  or  more  of  each  of  the  following > 


IF  statements. 


Input/output  statements. 


Mixed  mode  arithmetic  assignment  statements. 


Call  statements 


Control  structures. 


4.6.6  Descriptive  Comments.  Explain  in  comments  any  reason  for 
peculiar  array  dimensions,  e.g.,  storage  limitations  or  use  by  other 
routines . 
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4.6.7  Conspicuous  Printing  Style  for  Comment.  Use  a conspicuous 
printing  style  for  comments  so  that  they  stand  out  from  the  rest  of  the 
listing.  Separate  comments  from  statements  by  cards  that  are  blank 
except  for  the  C in  Column  1.  (Although  the  listing  looks  cleaner 
without  the  C,  some  compilers  reject  totally  blank  cards.)  Comments  are 
further  accented  if  they  are  indented,  starting  approximately  in  Column 
15. 


4.6.8  Recovery  Procedures  in  Comments.  Explain  error  recovery  pro- 
cedures in  comments,  unless  they  are  already  defined  in  FORMAT  state- 
ments. This  information  is  important  to  those  who  maintain  or  modify 
the  program. 

4.7  CHECK  AND  DESK  CHECKING. 

4.7.1  Checkout  Method.  Plan  your  checkout  method  while  designing  a 
program.  Organize  the  program  so  checkout  data  are  easy  to  prepare. 

Make  up  a block  diagram  and  preliminary  checkout  data  before  coding. 

Use  the  checkout  data  and  block  diagram  in  "desk  checking"  the  program. 
Caution  should  be  taken  that  data  items  that  are  meant  to  be  real  valued 
have  not  been  given  a name  beginning  with  I,  J,  K,  L,  M,  or  N.  This 
would  cause  them  to  be  made  integers  and  is  often  the  cause  of  execution 
errors. 


4.7.2  Desk  Checking.  Desk  checking  means  manually  scrutinizing 
program  logic  and  deck  structure.  Mistakes  in  either  can  cause  an 
unsuccessful  run,  so  a few  minutes  of  checking  is  worthwhile. 

4.7.3  PROGRAM  LOGIC  CHECKLIST. 

4. 7. 3.1  Statement  Number.  Assure  that  there  is  a statement  number  on 
the  statement  Immediately  following  each  arithmetic  IF  statement  and 
each  of  all  kinds  of  GO  TO  statements. 

4. 7. 3. 2 Verify  Statement  Number.  Verify  that  there  are  statement 
numbers  for  the  exits  from  IF,  TO  TO,  and  DO  statements. 

4. 7. 3. 3 Assure  Parenthesis  Balance.  Start  from  the  left  with  0 and 
add  1 for  each  left  parenthesis.  If  parenthesis  balance,  the  count 
will  end  up  at  0;  however,  this  does  not  indicate  correct  grouping. 

4. 7. 3. 4 Subscripted  Variables.  Every  subscripted  variable  must  appear 
in  a specification  statement. 

4. 7. 3. 5 Check  for  DO-loop.  Check  for  DO- loop  that  ends  with  an  IF 
statement  or  GO  TO  statement. 
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4. 7. J.6  Assure  Statements  are  Present.  Assure  that  all  referenced 
FORMAT  stateaents  are  present. 

4. 7. 3*7  Check  all  Hollerith  Fields.  Check  all  Hollerith  fields  for 
the  correct  length. 

4. 7. 3*8  Call  Statement.  Assure  that  the  number,  order,  and  type  of 
arguments  In  Call  stateaents  are  correct. 

4.8  ARGUMENTS. 

4.8.1  Grouping  of  Arguments.  For  ease  of  Interpretation,  group  the 
arguments  of  a calling  sequence  In  this  order i input,  Input/output, 
output,  error  code.  An  Input  arguaent  is  one  whose  value  the  subroutine 
uses  but  does  not  change i an  Input/output  arguaent  is  one  whose  value 
the  subroutine  uses  and  subsequently  changes i an  ouput  argument  Is  one 
whose  values  are  computed  by  the  subroutine  and  where  an  assignment 
statement  will  be  found  for  the  output  arguaent  name.  The  error  code 
arguaent  is  the  means  of  transmitting  diagnostic  Information  to  the 
calling  program  e.g.,  whether  the  subroutine  executed  noraally  or 
abnormally i It  is  a special  kind  of  ouput  arguaent. 

4.8.2  Error  Code.  An  error  code  returned  by  a subroutine  should  be 
zero  for  normal  execution  and  a nonzero  value  otherwise.  The  more 
different  nonzero  values  a subordinate  can  return,  the  more  specifically 
it  can  describe  to  the  calling  program  the  nature  of  a malfunction  or 
Improper  condition  in  the  input  data. 

4.9  NON- INTEC ER  VARIABLE.  The  use  of  non-integer  variable  or  non- 
integer  expressions  for  array  subscripts  shall  be  prohibited. 

4.9.1  Array  Naming  Convention.  In  a routine,  the  appearance  of  an 
array  name  shall  be  Immediately  followed  by  subscript  except  In  the 
following  casest 

. In  the  list  of  an  Input/output  statement. 

. In  the  list  of  dummy  arguments. 

. In  the  list  of  actual  arguments  In  a reference  to  an  external 

procedure. 


. In  a type  statement. 

4.9.2  Arguments  in  Call  Statements.  Arguments  in  routine  calling 
statements  shall  not  contain  arithmetic  or  logical  expressions. 
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4.9.3  Data  Variable  Assignment.  Only  one  data  variable  assignment 
shall  be  made  In  a line  of  code  (l.e.,  A«B*C  Is  not  allowed). 

4.9.4  Whole  Numbers.  Whole  numbers  used  as  exponents  shall  be 
expressed  as  Integers. 

4.9.5  Input/Output  Devices.  I/O  devices  shall  be  referenced  by 
Integer  variable  names. 

4.9.6  Constant  Count  Indicles.  Constant  count  lndicles  shall  not  be 
used  to  control  the  Input  of  data.  An  Integer,  real  or  double  precision 
constant  Is  said  to  be  signed  when  it  is  written  Immediately  after  a PLUS 
or  MINUS. 


The  Proponent  Agency  for  this  section  of  CSCM  18-1-1,  Programing 
Procedures  Manual  Is  the  Technical  Evaluation  and  Standards  Directorate 
Users  are  Invited  to  send  conments  and  suggested  Improvements  on  DA 
Form  2028  (Recommended  Changes  to  Publications)  to  Cdr,  USACSC, 

ATTN:  ACSC-TES,  Fort  Belvoir,  VA  22060. 


COMMANDER 


A.  R.  PEDE 
Colonel,  GS 
Chief  of  Staff 
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GLOSSARY 


The  definitions  of  the  COBOL  terms  in  the  Glossary  are  provided 
merely  as  reference  material  or  Introductory  material.  The 
definitions  are  therefore  brief  and  do  not  give  any  detail  of 
syntactical  rules.  Most  of  the  terms  have  been  removed  from  the 
former  PROGRAMING  PROCEDURES  MANUAL  (PPM),  paragraph  4. 2. 3. 1.1, 
and  are  further  discussed  in  this  ATTACHMENT. 
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DEFINITIONS 


ACCESS  MODE 


The  manner  in  which  records  will  be  operated  upon  within  a 
file  by  the  computer. 


ACTUAL  DECIMAL  POINT 


The  physical  representation,  using  the  decimal  point  char- 
acters, period  (.)  or  comma  (,),  of  the  decimal  point 
position  in  a data  item.  When  used,  it  will  appear  in  a 
printed  report  and  will  require  an  actual  space  in  storage 


ACTUAL  KEY 


A key  that  directly  expresses  the  physical  location  of  a 
logical  record  on  a mass  storage  medium. 


ALPHABETIC  CHARACTER 


A character  that  belongs  to  one  of  the  26  characters  of  the 
alphabet  or  space. 


ALPHANUMERIC  CHARACTER 


Any  character  in  the  computer's  character  set 


ALTERNATE  RECORD  KEY 


A key,  other  than  the  prime  record  key,  whose  contents  iden 
tify  a record  within  an  indexed  file. 


ARITHMETIC  OPERATORS 


The  character  set  that  defines  COBOL  arithmetic  operators  is 
as  follows: 
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GRAPHIC 

+ 

* 

/ 

** 


MEANING 

ADDITION 

SUBTRACTION 

MULTIPLICATION 

DIVISION 

EXPONENTIATION 


ASCENDING  KEY 

A key  upon  the  values  of  which  data  is  ordered  starting  with 
the  lowest  value  of  key  to  the  highest  value  of  key,  in  ac- 
cordance to  the  rules  of  the  collating  sequence. 

ASYNCHRONOUS  PROCESSING 

A processing  method  in  which  each  event  or  the  performance  of 
each  operation  starts  as  a result  of  a signal  that  the  pre- 
vious operation  has  been  completed. 

BODY  GROUP 

Generic  name  for  a report  group  of  type  detail,  control 
heading  or  control  footing. 

BUFFER 

A portion  of  main  storage  into  which  data  is  read  or  from 
which  data  is  written. 


BYTE 


A generic  term  to  indicate  a measurable  portion  of  consecu- 
tive binary  digits;  e.g.,  an  8-bit  or  6-bit  byte. 
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CALLED  PROGRAM 

A program  which  is  the  object  of  a CALL  statement  combined 
at  object  time  with  the  calling  program  to  produce  a run 
unit. 

CALLING  PROGRAM 

A program  which  executes  a CALL  to  another  program. 

CD-NAME 

A user-defined  word  that  names  a Message  Control  System 
(MCS)  interface  area  described  in  a COMMUNICATION  DESCRIP- 
TION entry  within  the  COMMUNICATION  SECTION  of  the  DATA 
DIVISION. 

CHANNEL 

A device  that  directs  the  flow  of  information  between  the 
computer  main  storage  and  the  input/output  devices. 

CHARACTER 

The  basic  indivisible  unit  of  the  language. 

CHARACTER  POSITION 

A character  position  is  the  amount  of  physical  storage  re- 
quired to  store  a single  standard  data  format  character 
whose  usage  is  DISPLAY.  Further  characteristics  of  the 
physical  storage  are  defined  by  the  vendor. 

CHARACTER  SET 

The  most  basic  and  indivisible  unit  of  the  language  is  the 
character.  The  set  of  characters  used  to  form  a COBOL  char- 
acter-string and  separators  includes  the  letters  of  the 
alphabet,  digits  and  special  characters.  The  character  set 
consists  of  the  characters  as  defined  below.  In  the  case  of 
nonnumeric  literals,  comment-entries,  and  comment  lines,  the 
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character  set  is  expanded  to  include  the  computer's  entire 
character  set.  The  characters  allowable  in  each  type  of 


character-string  and  as 

separators  are: 

ALLOWABLE  NON- 

CSC COBOL 

ANS  COBOL 

STANDARD  CHAR 

0,  1,  9 

0,  1,  9 

J 

A,  B,  . . . .Z 

A,  B,  » • • • Z 

// 

+ 

+ 

% 

- 

- 

& 

* 

* 

t 

/ 

/ 

• 

a 

s 

? 

$ 

$ 

(? 

» 

9 

f 

9 

If 

II 

( 

( 

) 

) 

SPACE  OR  BLANK 

> 

< 

SPACE  OR  BLANK 

NOTE:  Programers  should  generally  use  only  those  characters  de- 
fined in  the  CSC  COBOL  character  set.  Additional  characters  may 
not  be  printable  depending  on  the  printer  features  and  print 
chains  available  at  a given  DPI. 

The  character  set  used  for  the  formation  of  words  is  restricted 
as  follows: 

0 
1 
2 

3 

4 

5 

6 
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Z 

- (hypen) 

NOTE:  The  hypen  may  not  be  used  as  the  first  or  last  character 
in  a word. 


7 H Q 

8 I R 


CLASS  CONDITION 


The  proposition,  for  which  a truth  value  can  be  determined, 
that  the  content  of  an  item  is  entirely  alphabetic  or  en- 
tirely numeric. 

COLLATING  SEQUENCE 


The  sequence  in  which  the  characters  that  are  acceptable  to 
a computer  are  ordered  for  purposes  of  sorting,  merging  and 
comparing.  The  EBCDIC  collating  sequence,  in  ascending  or- 
der, is: 


1. 

(space) 

2. 

• 

(period  or  decimal  point) 

3. 

< 

("less  than"  symbol) 

4. 

( 

(left  parenthesis) 

5. 

+ 

(plus  sign) 

6. 

$ 

(currency  symbol) 

7. 

* 

(asterisk) 

8. 

) 

(right  parenthesis) 

9. 

9 

(semicolon) 

10. 

- 

(hypen  or  minus  symbol) 

11. 

/ 

(stroke,  virgule,  slash) 

12. 

9 

(comma) 

13. 

> 

("greater  than"  symbol) 

14. 

1 

(apostrophe  or  single  quotation  mark)  IBM 

15. 

a 

(equal  sign) 

16. 

II 

(quotation  mark) 

17-42 

A through  Z 

43-52 

0 

through  9 
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COMMENT  LINE 

■ 

An  annotation  in  the  IDENTIFICATION  DIVISION  or  PROCEDURE 
DIVISION- of  a COBOL  source  program.  A comment  is  ignored  by 
the  compiler. 

COMMUNICATION  DESCRIPTION 

An  implicitly  defined  fixed-format  storage  area  that  is  used 
in  COBOL  teleprocessing  to  serve  as  the  interface  between  the 
object  program  and  the  Message  Control  Program  (MCP) . 

COMMUNICATION  DESCRIPTION  ENTRY 

An  entry  in  the  COMMUNICATION  SECTION  of  the  DATA  DIVISION 
that  is  composed  of  the  level  indicator  CD,  followed  by  a 
cd-name,  and  then  followed  by  a set  of  clauses  as  required. 

It  describes  the  interface  between  the  Message  Control  Pro- 
gram (MCP)  and  the  COBOL  Teleprocessing  program. 

COMMUNICATION  DEVICE 

A mechanism  (hardware  or  hardware/software)  capable  of  send- 
ing data  to  a queue  and/or  receiving  data  from  a queue.  This 
mechanism  may  be  a computer  or  a peripheral  device.  One  or 
more  programs  containing  COMMUNICATION  DESCRIPTION  entries 
and  residing  within  the  same  computer  define  one  or  more  of 
these  mechanisms. 

COMMUNICATION  SECTION 

The  section  of  the  DATA  DIVISION  that  describes  the  interface 
areas  between  the  Message  Control  Program  (MCP)  and  the  pro- 
gram, composed  of  one  or  more  CD  description  areas. 

COMPILE  TIME 

The  time  at  which  a COBOL  source  program  is  translated,  by  a 
COBOL  compiler,  to  a COBOL  object  program. 
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COMPILER  DIRECTING  STATEMENT 

A statement,  beginning  with  a compiler  directing  verb,  that 
causes  the  compiler  to  take  a specific  action  during  compi- 
lation. 

COMPOUND  CONDITION 

A statement  that  tests  for  two  or  more  relational  expres- 
sions, true  or  false. 

COMPUTER-NAME 

A system-name  that  identifies  the  computer  upon  which  the 
program  is  to  be  compiled  or  run. 

CONDITION 

A status  of  a program  at  execution  time  for  which  a truth 
value  can  be  determined.  Where  the  term  'condition'  (condi- 
tion-!, condition-2,...)  appears  in  these  language  specifica- 
tions in  or  in  reference  to  'condition'  (condition-1,  condi- 
tion^,...) of  a general  format,  it  is  a conditional  expres- 
sion consisting  of  either  a simple  condition  optionally  pa- 
renthesized, or  a combined  condition  consisting  of  the  syn- 
tactically correct  combination  of  simple  conditions,  logical 
operators,  and  parentheses,  for  which  a truth  value  can  be 
determined. 

CONDITION-NAME 

A user-defined  word  assigned  to  a specific  value,  set  of 
values,  or  range  of  values,  within  the  complete  set  of  values 
that  a conditional  variable  may  possess;  or  the  user-defined 
word  assigned  to  a status  of  a user-defined  switch  or  device. 

CONDITION-NAME  CONDITION 

The  proposition,  for  which  a truth  value  can  be  determined, 
that  the  value  of  a conditional  variable  is  a member  of  the 
set  of  values  attributed  to  a condition-name  associated  with 
the  conditional  variable. 
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CONDITIONAL  STATEMENT 

A statement  which  specifies  that  the  determination  of  a truth 
value  has  to  be  made  and  any  subsequent  action  of  the  object 
program  is  dependent  on  this  truth  value. 

CONDITIONAL  VARIABLE 

A data  item  that  can  take  on  more  than  one  value  and  the 
value (s)  it  assumes  is  assigned  a condition-name. 

CONFIGURATION  SECTION 

A section  of  the  ENVIRONMENT  DIVISION  that  describes  overall 
specifications  of  source  and  object  computers. 

CONNECTIVE 

A reserved  word  that  is  used  to: 

1.  - Associate  a data-name,  paragraph-name,  condition- 

name  or  test-name  with  its  qualifier. 

2.  - Link  two  or  more  operands  written  in  a series. 

3.  - Form  conditions  (logical  connectives). 

CONSOLE 

A COBOL  mnemonic-name  that  is  used  to  indicate  the  console 
typewriter. 

CONTIGUOUS  ITEMS 

Items  that  are  described  by  consecutive  entries  in  the  DATA 
DIVISION,  and  that  bear  a definite  hierarchic  relationship  to 
each  other. 

CONTROL  BREAK 

A change  in  the  value  of  a data  item  that  is  referenced  in 
the  controls  clause.  More  generally,  a change  in  the  value 


Al-9 


ATTACHMENT 


CSCM  18-1-1 


1 FEB  79 


GLOSSARY  (Cont.) 


of  a data  item  that  is  used  to  control  the  hierarchical 
structure  of  a report. 

CONTROL  BYTES 

Bytes  used  in  conjunction  with  a physical  record  to  serve  to 
identify  the  record  and  indicate  its  length,  blocking  factor, 
etc. 

CONTROL  DATA  ITEM 

A data  item,  a change  in  whose  contents  may  produce  a control 
break. 

CONTROL  DATA-NAME 

A data-name  that  appears  in  a CONTROL  clause  and  refers  to  a 
CONTROL  DATA  ITEM. 

CONTROL  FOOTING 

A report  group  that  is  presented  at  the  end  of  the  control 
group  of  which  it  is  a member. 

CONTROL  GROUP 

A set  of  body  groups  that  is  presented  for  a given  value  of 
a control  data  item  or  of  FINAL.  Each  control  group  may 
begin  with  a CONTROL  HEADING,  end  with  a CONTROL  FOOTING, 
and  contain  DETAIL  report  groups. 

CONTROL  HEADING 

A report  group  that  is  presented  at  the  beginning  of  the  con- 
trol group  of  which  it  is  a member. 

CONTROL  HIERARCHY 

A designated  sequence  of  report  subdivisions  defined  by  the 
positional  order  of  FINAL  and  the  data-names  within  a CONTROL 
clause. 
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CORE  STORAGE 

CPU  storage  existing  in  the  form  of  magnetic  cores. 

COUNTER 

I 

A data  item  used  for  storing  numbers  or  number  representa- 
tions in  a manner  that  permits  these  numbers  to  be  increased 
or  decreased  by  the  value  of  another  number,  or  to  be 
changed  or  reset  to  zero  or  to  an  arbitrary  positive  or 
negative  value. 

CURRENCY  SIGN 

The  character  '$'  of  the  COBOL  character  set. 

CURRENCY  SYMBOL 

The  character  defined  by  the  CURRENCY  SIGN  clause  in  the 
SPECIAL-NAMES  paragraph.  If  no  CURRENCY  SIGN  clause  is  pre- 
sent in  a COBOL  source  program,  the  currency  symbol  is  iden- 
tical to  the  currency  sign. 

CURRENT  RECORD 

The  record  which  is  available  in  the  record  area  associated 
with  the  file. 

CURRENT  RECORD  POINTER 

An  internal  Indicator  that  is  used  in  the  selection  of  the 
next  record. 

DATA  CLAUSE 

A clause  that  appears  in  a data  description  entry  in  the  DATA 
DIVISION  and  provides  information  describing  a particular 
attribute  of  a data  item. 

o 


o 
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DATA  DESCRIPTION  ENTRY 

An  entry  In  the  DATA  DIVISION  that  is  composed  of  a level- 
number  followed  by  a data-name,  if  required,  and  then  followed 
by  a set  of  data  clauses,  as  required. 

DATA  DIVISION 

This  is  the  third  of  four  divisions  of  a COBOL  program.  The 
files  to  be  used  in  the  program  and  the  records  contained 
within  the  files  are  described  here. 

DATA  ITEM 

A character  or  a set  of  contiguous  characters  (excluding 
literals)  defined  as  a unit  of  data  by  the  COBOL  program. 

DATA-NAME 

A user-defined  word  that  names  a data  item  described  in  a 
DATA  DESCRIPTION  entry  in  the  DATA  DIVISION.  When  used  in 
the  General  Formats,  ’data-name'  represents  a word  which  can 
neither  be  subscripted,  Indexed,  nor  qualified  unless  speci- 
fically permitted  by  the  rules  for  that  format. 

DEBUGGING  SECTION 

A debugging  section  is  a section  that  contains  a USE  FOR 
DEBUGGING  statement. 

DECLARATIVE-SENTENCE 

A compiler-directing  sentence  consisting  of  a single  USE 
statement  terminated  by  the  separator  period. 

DECLARATIVES 

A set  of  one  or  more  special-purpose  sections,  written  at  the 
beginning  of  the  PROCEDURE  DIVISION,  the  first  of  which  is 
preceded  by  the  key  word  DECLARATIVES  and  the  last  of  which 
is  followed  by  the  key  words  END  DECLARATIVES.  A declarative 
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is  composed  of  a section  header,  followed  by  a USE  compiler 
directing  sentence,  followed  by  a set  of  zero,  one  or  more 
associated  paragraphs. 

DELIMITER 

A character  or  a sequence  of  contiguous  characters  that  iden- 
tify the  end  of  ■<*  string  of  characters  and  separates  that 
string  of  char a from  the  following  string  of  characters. 

A delimiter  is  not  part  of  the  string  of  characters  that  it 
delimits. 


DESCENDING  KEY 


A key  upon  the  values  of  which  data  is  ordered  starting  with 
the  highest  value  of  key  down  to  the  lowest  value  of  key,  in 
accordance  with  the  rules  of  the  collating  sequence. 


DESTINATION 

A symbolic  identification  of  the  receiver  of  a transmission 
from  a queue.  A destination  is  a message  used  in  teleprocess- 
ing. 

DESTINATION  QUEUE 

A Message  Control  Program  storage  queue  for  messages  to  or 
from  remote  stations  used  in  teleprocessing. 

DEVICE-NUMBER 

A number  which  is  assigned  to  any  external  device. 

DIGIT  POSITION 

A digit  position  is  the  amount  of  physical  storage  required 
to  store  a single  digit.  This  amount  may  vary  depending  on 
the  usage  specified  in  the  DATA  DESCRIPTION  entry  that  de- 
fines the  data  item. 
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DIVISION 

One  or  more  sections  or  paragraphs  that  are  formed  and  com- 
bined in  accordance  with  a specific  set  of  rules.  Each  divi- 
sion consists  of  the  division  header  and  the  related  division 
body.  There  are  four  divisions  in  a COBOL  program. 

IDENTIFICATION 

ENVIRONMENT 

'‘KATA 

PROCEDURE 

DIVISION  HEADER 

A combination  of  words  followed  by  a period  and  a space  that 
indicates  the  beginning  of  a division.  The  division  headers 
are: 


IDENTIFICATION  DIVISION. 

ENVIRONMENT  DIVISION. 

DATA  DIVISION. 

PROCEDURE  DIVISION. 

DYNAMIC  ACCESS 

An  access  mode  in  which  specific  logical  records  can  be  ob- 
tained from  or  placed  into  a mass  storage  file  in  a non-se- 
quential  manner  and  obtained  from  a file  in  a sequential 
manner,  during  the  scope  of  the  same  OPEN  statement. 

EBCDIC  CHARACTER 

Any  one  of  the  symbols  included  in  the  eight-bit  EBCDIC  (Ex- 
tended Binary-Coded-Decimal  Interchange  Code)  set.  All  of 
the  51  characters  that  belong  to  the  COBOL  character  set  are 
included. 
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EDITING  CHARACTER 


A single  character  or  a fixed 
longing  to  the  following  set: 

two-character  combination 

Character 

Meaning 

B 

SPACE 

0 

ZERO 

+ 

PLUS 

- 

MINUS 

CR 

CREDIT 

DB 

DEBIT 

Z 

ZERO  SUPPRESS 

* 

CHECK  PROTECT 

$ 

CURRENCY  SIGN 

* 

COMMA 

• 

PERIOD  (DECIMAL  POINT) 

- / 

STROKE  (VIRGULE,  SLASH) 

ELEMENTARY  ITEM 

A data  item  that  is  described  as  not  being  further  subdivided 
logically. 

END  OF  PROCEDURE  DIVISION 

The  physical  position  of  a COBOL  source  program  after  which 
no  further  procedures  appear. 

o 

o 
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ENTRY 


A descriptive  set  of  consecutive  clauses  terminated  by  a 
period  and  written  in  the  IDENTIFICATION  DIVISION,  ENVIRON- 
MENT DIVISION,  or  DATA  DIVISION  of  a COBOL  source  program. 

ENVIRONMENT  DIVISION 

This  is  the  second  of  the  four  divisions  of  a COBOL  program. 
The  ENVIRONMENT  DIVISION  gives  information  about  the  compu- 
ters upon  which  the  source  program  is  compiled  and  those  on 
which  the  object  program  is  executed  and  provides  a linkage 
between  the  logical  concept  of  files  and  their  records,  and 
the  physical  aspects  of  the  devices  on  which  files  are  stored. 

EXECUTION  TIME 

The  time  at  which  an  object  program  is  executed. 

EXPONENT 

A number  that  tells  the  power  (number  of  times  it  can  be 
factored)  of  a base  number,  positive  exponents  indicate  mul- 
tiplication and  negative  exponents  indicate  division.  In 
COBOL,  exponentiation  is  specified  by  **. 

EXTEND  MODE 

The  state  of  a file  after  execution  of  an  OPEN  statement  with 
the  EXTEND  phrase  specified,  for  that  file  and  before  the 
execution  of  a CLOSE  statement  for  that  file. 

F-MODE  RECORDS 

Fixed  length  records. 

FIGURATIVE  CONSTANT 

A compiler-generated  value  referenced  through  the  use  of  cer- 
tain reserved  words. 
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FILE 


A collection  of  records. 

FILE-CLAUSE 

A clause  that  appears  as  part  of  any  of  the  following  DATA 
DIVISION  entries: 

File  Description  (FD) 

v Sort-Merge  File  Description (SD) 

Record  Description  Entry  (RD) 

FILE-CONTROL 

The  name  of  an  ENVIRONMENT  DIVISION  paragraph  in  which  the 
data  files  for  a given  source  program  are  declared. 

FILE  DESCRIPTION  ENTRY 

An  entry  in  the  FILE  SECTION  of  the  DATA  DIVISION  that  is 
composed  of  the  level  indicator  FD,  followed  by  a file-name, 
and  then  followed  by  a set  of  file  clauses  as  required. 

FILE-NAME 

A user-defined  word  that  names  a file  described  in  the  FILE 
DESCRIPTION  entry  or  a Sort-Merge  File  Description  entry 
within  the  FILE  SECTION  of  the  DATA  DIVISION. 

FILE  ORGANIZATION 

The  permanent  logical  file  structure  established  at  the  time 
that  a file  is  created. 
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FILE  SECTION 

The  section  of  the  DATA  DIVISION  that  contains  file  Descrip- 
tion entries,  Sort-Merge  File  Description  entries  and  Saved 
Area  Description  entries  together  with  their  associated 
Record  Descriptions. 

FORMAT 

A specific  arrangement  of  a set  of  data. 

FUNCTION-NAME 

A name  that  indicates  a specific  logical  unit,  printer  and 
card  punch  control  characters  or  report  codes.  In  the  EN- 
VIRONMENT DIVISION,  a funtion-name  can  be  associated  with  a 
mnemonic-name,  in  order  that  the  mnemonic-name  can  then  be 
substituted  in  any  valid  format. 

GROUP  ITEM 

A named  contiguous  set  of  elementary  or  group  items.  These 
items  are  logically  related. 

HEADER  LABEL 

A record  that  is  used  to  identify  the  beginning  of  a physical 
file  or  a volume. 

HIGH  ORDER  END 

The  leftmost  character  of  a string  of  characters. 

I-O-CONTROL 

The  name  of  an  ENVIRONMENT  DIVISION  paragraph  in  which  object 
program  requirements  for  specific  input-output  techniques, 
rerun  points,  sharing  of  same  areas  by  several  data  files 
and  multiple  file  storage  on  a single  input -output  device, 
are  specified. 
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I-O-MODE 

The  state  of  a file  after  execution  of  an  OPEN  statement, 
with  the  1-0  phrase  specified,  for  that  file  and  before  the 
execution  of  a CLOSE  statement  for  that  file. 

IDENTIFICATION  DIVISION 

This  is  the  first  of  four  divisions  of  a COBOL  program.  In 
the  IDENTIFICATION  DIVISION,  you  can  identify  the  source 
program,  object  program  and  such  documentation  as  author's 
name, ' installation,  date-written,  etc. 

IDENTIFIER 

A data-name  followed,  as  required,  by  the  syntactically 
correct  combination  of  qualifiers,  subscripts,  and  indices 
necessary  to  make  unique  reference  to  a data  item. 

IMPERATIVE  STATEMENT 

A statement  that  begins  with  an  imperative  verb  and  speci- 
fies an  unconditional  action  to  be  taken. 

IMPLEMENTOR-NAME 

A system-name  that  refers  to  a particular  feature  available 
on  that  implementor's  computing  system. 

IN-LINE  PR9CEDURE 

The  set  of  statements  that  constitutes  the  main  or  control- 
ling flow  of  the  run  unit. 


INDEX 


A computer  storage  area  or  register,  the  contents  of  which 
represent  the  identification  of  a particular  element  in  a 
table. 
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INDEX  DATA  ITEM 


A data  item  in  which  the  values  associated  with  a user  de- 
fined index-name  can  be  stored  in  a form  specified  by  the 
vendor. 


INDEX-NAME 


A user-defined  word  that  names  an  index  associated  with  a 
specific  table. 

INDEXED  DATA-NAME  ' ? 


An  identifier  that  is  composed  of  a data-name,  followed  by 
one  or  more  index-names  enclosed  in  parentheses. 


INDEXED  FILE 


A file  with  indexed  organization. 


INDEXED  ORGANIZATION 


The  permanent  logical  file  structure  in  which  each  record  is 
identified  by  the  value  of  one  or  more  keys  within  that 
record. 


INPUT  FILE 


A file  that  is  opened  in  the  input  mode. 


The  state  of  a file  after  execution  of  an  OPEN  statement, 
with  the  INPUT  phrase  specified,  for  that  file  and  before 
the  execution  of  a CLOSE  statement  for  that  file. 


INPUT-OUTPUT  FILE 


A file  that  is  opened  in  the  1-0  mode. 
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INPUT-OUTPUT  SECTION 

The  section  of  the  ENVIRONMENT  DIVISION  that  names  the  files 
and  the  external  media  required  by  an  object  program  and 
which  provides  information  required  for  transmission  and 
handling  of  data  during  execution  of  the  object  program. 

INPUT  PROCEDURE 

A set  of  statements  that  is  executed  each  time  a record  is 
released  to  the  sort  file. 

INPUT  QUEUE 

A Message  Control  Program  destination  queue  from  which  mes- 
sages from  the  remote  stations  are  accepted  by  the  COBOL 
teleprocessing  program. 

INPUT-UNIT 

A system-name  which  specifies  the  input  unit  from  which  ob- 
ject program  computer  instructions  are  read  at  object  time. 

INTEGER 

A numeric  literal  or  a numeric  data  item  that  does  not  in- 
clude any  character  positions  to  the  right  of  the  assumed 
decimal  point.  (Note)  Where  the  term  'integer'  appears  in 
General  Formats,  'integer'  must  not  be  a numeric  data  item 
in  the  DATA  DIVISION,  and  must  not  be  signed,  nor  zero  un- 
less explicitly  allowed  by  the  rules  of  that  format. 

INVALID  KEY  CONDITION 

A condition,  at  execution  time,  caused  when  a specific  value 
of  the  key  associated  with  an  indexed  or  relative  file  is 
determined  to  be  invalid. 
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KEY 

A data  item  which  identifies  the  location  of  a record,  or  a 
set  of  data  items  which  serve  to  identify  the  ordering  of 
data. 

KEY  OF  REFERENCE 

The  key,  either  prime  or  alternate,  currently  being  used  to 
access  records  within  an  indexed  file. 

KEY  WORD  ' 

A reserved  word  whose  presence  is  required  when  the  format 
in  which  the  word  appears  is  used  in  a source  program. 

LANGUAGE-NAME 

A system-name  that  specifies  a particular  programing  lan- 
guage. 

LEVEL  INDICATOR 

Two  alphabetic  characters  that  identify  a specific  type  of 
file  or  a position  in  a hierarchy.  The  level  indicators 
are:  FD,  SD,  RD,  CD. 

LEVEL  NUMBER 

A user-defined  word  which  indicates  the  position  of  a data 
item  'in'  the  hierarchical  structure  of  a logical  record  or 
which  indicates  special  properties  of  a DATA  DESCRIPTION 
entry.  A level-number  is  expressed  as  a one  or  two  digit 
number.  Level-numbers  in  the  range  1 through  49  indicate 
the  position  of  a data  item  in  the  hierarchical  structure 
of  a logical  record.  Level -numbers  in  the  range  1 through 
9 may  be  written  either  as  a single  digit  or  as  a zero  fol- 
lowed by  a significant  digit.  Level-numbers  66  (not  CSC 
COBOL),  77,  and  88  identify  special  properties  of  a DATA 
DESCRIPTION  entry. 
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LIBRARY-NAME 

A user-defined  word  that  names  a COBOL  library  that  is  to  be 
used  by  the  compiler  for  a given  source  program  compilation. 

LIBRARY  TEXT 

A sequence  of  character-strings  and/or  separators  in  a COBOL 
library. 

LINE  NUMBER 

An  integer  that  denotes  the  vertical  position  of  a report 
line  on  a page. 

LINKAGE  SECTION 

The  section  in  the  DATA  DIVISION  that  describes  data  made 
available  from  another  program. 

LITERAL 

A character-string  whose  value  is  implied  by  the  ordered  set 
of  characters  comprising  the  string. 

LOGICAL  OPERATOR 

One  of  the  reserved  words  AND,  OR,  EXOR,  or  NOT.  AND,  OR, 
or  EXOR  may  be  used  as  logical  connectives.  NOT  can  be  used 
for  logical  negation. 

LOGICAL  RECORD 

The  most  inclusive  data  item.  The  level  number  for  a record 
is  01. 

LOW  ORDER  END 

The  rightmost  character  of  a string  of  characters. 
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MASS  STORAGE 


A storage  medium  in  which  data  may  be  organized  and  main- 
tained in  both  a sequential  and  nonsequential  manner. 


MASS  STORAGE  CONTROL  SYSTEM  (MSCS) 


An  input-output  control  system  that  directs,  or  controls, 
the  processing  of  mass  storage  files. 


MASS  STORAGE  FILE 


A collection  of  records  that  is  assigned  to  a mass  storage 
medium. 


MERGE  FILE 


A collection  of  records  to  be  merged  by  a MERGE  statement. 
The  merge  file  is  created  and  can  be  used  only  by  the  merge 
function. 


MESSAGE  CONTROL  PROGRAM  (MCP) 


A communications  control  program  that  aids  in  the  processing 
of  messages. 


MESSAGE  CONTROL  SYSTEM  (MCS) 


A communications  control  system  that  supports  the  process- 
ing of  messages. 


MESSAGE  INDICATORS 


EGI  (End  of  Group  Indicator),  EMI  (End  of  Message  Indica- 
tor) , and  ESI  (End  of  Segment  Indicator)  are  conceptual  in- 
dications that  serve  to  notify  the  MCS  that  a specific  con- 
dition exists.  A segment  may  be  terminated  by  an  ESI,  EMI, 
or  EGI.  A message  may  be  terminated  by  an  EMI  or  EGI. 
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MNEMONIC-NAME 

A user-defined  word  that  is  associated  in  the  ENVIRONMENT 
DIVISION  with  a specific  implementor-name. 

MODE-NAME 

A system-name  that  refers  to  a particular  method  of  data  re- 
presentation on  a physical  storage  medium. 

NEGATED  COMBINED  CONDITION 

The  'NOT'  logical  operator  immediately  followed  by  a paren- 
thesized combined  condition. 

NEGATED  SIMPLE  CONDITION 

The  'NOT'  logical  operator  immediately  followed  by  a simple 
condition. 

NEXT  EXECUTABLE  SENTENCE 

The  next  sentence  to  which  control  will  be  transferred  af- 
ter execution  of  the  current  statement  is  complete. 

NEXT  EXECUTABLE  STATEMENT 

The  next  statement  to  which  control  will  be  transferred  af- 
ter execution  of  the  current  statement  is  complete. 

NEXT  RECORD 

The  record  which  logically  follows  the  current  record  of  a 
file. 

NONCONTIGUOUS  ITEMS 

Elementary  data  items,  in  the  WORKING-STORAGE  and  LINKAGE 
SECTION,  which  bear  no  hierarchic  relationship  to  other 
data  items. 
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NONNUMERIC  ITEM 

A data  item  whose  description  permits  its  contents  to  be 
composed  of  any  combination  of  characters  taken  from  the 
computer’s  character  set.  Certain  categories  of  nonnumeric 
items  may  be  formed  from  more  restricted  character  sets. 

NONNUMERIC  LITERAL 

A literal  bounded  by  quotation  marks.  The  string  of  charac- 
ters may  include  any  character  in  the  computer's  character 
set.  To  represent  a single  quotation  mark  character  within 
a nonnumeric  literal,  two  contiguous  quotation  marks  must  be 
used. 

NONSWITCHED  LINE 

A line  that  is  a continuous  link  between  a remote  station  and 
the  computer,  in  teleprocessing. 

NUMERIC  CHARACTER 

A character  that  belongs  to  the  set  of  digits:  0 through  9. 
NUMERIC  EDITED  CHARACTER 

A numeric  character  which  may  be  used  in  a printed  output. 

It  may  consist  of  external  decimal  digits  '0'  through  '9', 
the  decimal  point,  commas,  the  dollar  sign,  etc. 

NUMERIC  ITEM 

A data  item  whose  description  restricts  its  contents  to  a 
value  represented  by  characters  chosen  from  the  digits  '0' 
through  '9',  if  signed,  the  item  may  also  contain  a , 
or  other  representation  of  an  operational  sign. 
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NUMERIC  LITERAL 

A literal  composed  of  one  or  more  numeric  characters  that  may 
contain  either  a decimal  point,  or  an  algebraic  sign,  or  both. 
The  decimal  point  must  not  be  the  rightmost  character.  The 
algebraic  sign,  if  present,  must  be  the  leftmost  character. 

OBJECT-COMPUTER 

The  name  of  an  ENVIRONMENT  DIVISION  paragraph  in  which  the 
computer  upon  which  the  object  program  will  be  run  is  des- 
cribed. 

OBJECT  OF  ENTRY 

A set  of  operands  and  reserved  words,  within  a DATA  DIVISION 
entry,  that  is  coded  immediately  following  the  subject  of  the 
entry. 

OBJECT  PROGRAM 

A set  of  group  of  executable  machine  language  instructions 
and  other  material  designed  to  interact  with  data  to  provide 
problem  solutions.  An  object  program  is  generally  the  ma- 
chine language  result  of  the  operation  of  a COBOL  compiler 
on  a source  program. 

OBJECT  TIME 

The  time  at  which  an  object  program  is  executed. 

OPEN  MODE 

The  state  of  a file  after  execution  of  an  OPEN  statement  for 
that  file  and  before  the  execution  of  a CLOSE  statement  for 
that  file.  The  particular  open  mode  is  specified  in  the 
OPEN  statement  as  either  INPUT,  OUTPUT,  or  1-0. 

OPERAND 

Any  lower-case  word  (or  words)  that  appears  in  a statement 
or  entry  format  may  be  considered  to  be  an  operand  and,  as 
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such,  is  an  implied  reference  to  the  data  indicated  by  the 
operand. 

OPERATIONAL  SIGN 

An  algebraic  sign,  associated  with  a numeric  data  item  or  a 
numeric  literal  to  indicate  whether  its  value  is  positive 
or  negative. 

OPTIONAL  WORD 

A reserved  word  that  is  included  in  a specific  format  only 
to  improve  the  readability  of  the  language  and  whose  pre- 
sence is  optional  to  the  user  when  the  format  in  which  the 
word  appears  is  used  in  a source  program. 

OUT-OF-LINE  PROCEDURE 

A set  of  statements  not  included  in  the  main  or  controlling 
flow  of  the  program. 

OUTPUT  FILE 

A file  that  is  opened  in  either  the  output  mode  or  extend 
mode. 

OUTPUT  MODE 

The  state  of  a file  after  execution  of  an  OPEN  statement, 
with  the  OUTPUT  or  EXTEND  phrase  specified,  for  that  file 
and  before  the  execution  of  a CLOSE  statement  for  that  file. 

OUTPUT  PROCEDURE 

A set  of  statements  to  which  control  is  given  during  execu- 
tion of  a SORT  statement  after  the  sort  function  is  com- 
pleted, or  during  execution  of  a MERGE  statement  after  the 
merge  function  has  selected  the  next  record  in  merged  order. 
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OUTPUT  QUEUE 

An  MCP  (Message  Control  Program)  destination  queue  into 
which  a COBOL  teleprocessing  program  places  messages  for  one 
or  more  remote  stations. 

OVERFLOW  CONDITION 

A condition  which  occurs  in  string  manipulation  when  the 
sending  area(s)  contain  untransferred  characters  after  the 
receiving  area(s)  have  been  filled. 

OVERLAY 

The  use  of  the  same  areas  of  internal  storage  for  different 
stages  in  processing  a problem.  (Reference  Segmentation.) 


PAGE 

A vertical  division  of  a report  representing  a physical  se- 
paration of  report  data,  the  separation  being  based  on  in- 
ternal reporting  requirements  and/or  external  characteris- 
tics of  the  reporting  medium. 

PAGE  BODY 

That  part  of  the  logical  page  in  which  lines  can  be  written 
and/or  spaced. 

PAGE  FOOTING 

A report  group  that  is  presented  at  the  end  of  a report  page 
as  determined  by  the  Report  Writer  Control  System. 

PAGE  HEADING 

A report  group  that  is  presented  at  the  beginning  of  a re- 
port page  as  determined  by  the  Report  Writer  Control  System. 
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PARAGRAPH 

In  the  PROCEDURE  DIVISION,  a paragraph-name  follov'  ^ by  a 
period  and  a space  and  by  zero,  one  or  more  senten^.a.  In 
the  IDENTIFICATION  and  ENVIRONMENT  DIVISIONS,  a paragraph 
header  followed  by  one  or  more  entries. 

PARAGRAPH  HEADER 

A reserved  word,  followed  by  a period  and  a space  that  indi- 
cates the  beginning  of  a paragraph  in  the  IDENTIFICATION  and 
ENVIRONMENT  DIVISIONS.  The  permissible  paragraph  headers 
are: 

In  the  IDENTIFICATION  DIVISION  In  the  ENVIRONMENT  DIVISION 


PROGRAM-ID. 

AUTHOR. 

INSTALLATION. 

DATE-WRITTEN 

DATE-COMPILED 

SECURITY. 


SOURCE-COMPUTER 
OBJECT-COMPUTER 
SPECIAL-NAMES . 
FILE-CONTROL. 
I-O-CONTROL . 


PARAGRAPH-NAME 

A user-defined  word  that  identifies  and  begins  a paragraph 
in  the  PROCEDURE  DIVISION. 

PARAMETER 

A variable  that  is  given  a specific  value  and  is  used  to 
pass  data  values  between  calling  and  called  programs. 

PHRASE 

A phrase  is  an  ordered  set  of  one  or  more  consecutive  COBOL 
character-strings  that  form  a portion  of  a COBOL  procedural 
statement  or  of  a COBOL  clause. 
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PHYSICAL  RECORD 

A term  used  synonymously  with  the  term  BLOCK.  A physical 
record  can  be  composed  of  a portion  of  one  logical  record, 
of  one  complete  logical  record,  or  of  a group  of  logical 
records. 

PRIME  RECORD  KEY 

A key  whose  contents  uniquely  identify  a record  within  an 
indexed  file. 

PRINTABLE  ITEM 

A data  item,  the  extent  and  contents  of  which  are  specified 
by  an  elementary  report  entry.  This  elementary  report  entry 
contains  a COLUMN  NUMBER  clause,  a PICTURE  clause,  and  a 
SOURCE,  SUM  or  VALUE  clause. 

PRIORITY-NUMBER 

A number  which  classifies  source  program  sections  in  the 
PROCEDURE  DIVISION.  A priority-number  ranges  in  values  from 
0 to  99. 

PROCEDURE 

A paragraph  or  group  of  logically  successive  paragraphs,  or 
a section  or  group  of  logically  successive  sections,  within 
the  PROCEDURE  DIVISION. 

PROCEDURE  DIVISION 

One  of  the  four  main  parts  of  a COBOL  program.  The  PROCE- 
DURE DIVISION  contains  instructions  for  solving  a problem. 

PROCEDURE-NAME 

A user-defined  word  which  is  used  to  name  a paragraph  or 
section  in  the  PROCEDURE  DIVISION.  It  consists  of  a para- 
graph-name  (which  may  be  qualified),  or  a section-name. 
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PROCESSING  CYCLE 

A single  execution  of  a defined  out-of-line  procedure. 
PROGRAM-NAME 

A user-defined  word  that  identifies  a COBOL  source  program. 
PSEUDO- FILE-NAME 

A user-defined  word  that  names  a file  residing  on  a multiple 
file  tape  for  which  flo  FILE  DESCRIPTION  entry  is  specified. 

PSEUDO-TEXT 

A sequence  of  character-strings  and/or  separators  bounded 
by,  but  not  including,  pseudo-text  delimiters. 

PSEUDO-TEXT  DELIMITER 

Two  contiguous  equal  sign  (=)  characters  used  to  delimit 
pseudo-text. 


PUNCTUATION  CHARACTERS 

The  character  set  consists  of  the  punctuation  characters  as 
follows: 


i 


GRAPHIC  NAME 


, COMMA 

; SEMICOLON 

PERIOD 

" QUOTATION  MARK 

( LEFT  PARENTHESIS 

) RIGHT  PARENTHESIS 

SPACE 

- EQUAL 
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QUALIFIED  DATA-NAME 

An  identifier  that  is  composed  of  a data-name  followed  by  one 
or  more  sets  of  either  of  the  connectives  OF  and  IN  followed 
by  a data-name  qualifier. 

QUALIFIER 

A data-name  which  is  used  in  a reference  together  with  an- 
other data-name  at  a lower  level  in  the  same  hierarchy. 

A section-name  which  is  used  in  a reference  together  with  a 
paragraph-name  specified  in  that  section. 

A library-name  which  is  used  in  a reference  together  with  a 
text-name  associated  with  that  library. 

QUEUE 

A logical  collection  of  messages  awaiting  transmission  or 
processing. 

QUEUE  BLOCKS 


I I 


Blocks  containing  status  and  control  information  pertaining 
to  the  message  being  processed  and  to  each  active  queue. 
Queue  blocks  are  created  when  a queue  is  first  accessed  by  a 
COBOL  teleprocessing  run  unit  and  are  chained  together  when 
in  one  region/partition. 

QUEUE  NAME 

A symbolic  name  that  indicates  to  the  MCS  (Message  Control 
System)  the  logical  path  by  which  a message  or  a portion  of 
a completed  message  may  be  accessible  in  a queue. 

RANDOM  ACCESS 


An  access  mode  in  which  the  program  specified  value  of  a 
key  data  item  identifies  the  logical  record  that  is  obtained 
from,  deleted  from  or  placed  into  a relative  or  indexed  file. 
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RANDOM  PROCESSING 

A term  used  synonymous  with  ASYNCHRONOUS  PROCESSING. 

RECORD 

A set  of  data  items  grouped  for  handling  internally  or  by 
input/output  systems. 

RECORD  AREA 

A storage  area  allocated  for  the  purpose  of  processing  the 
record  described  in  a RECORD  DESCRIPTION  entry. 

RECORD  DESCRIPTION  ENTRY 

The  total  set  of  DATA  DESCRIPTION  entries  associated  with  a 
particular  record. 

RECORD  KEY 

A key  either  the  Prime  Record  Key  or  an  Alternate  Record  Key, 
whose  contents  identify  a record  within  an  indexed  file. 

RECORD-NAME 

A user-defined  word  that  names  a record  described  in  a 
RECORD  DESCRIPTION  entry  in  the  DATA  DIVISION. 


REEL 


A module  of  external  storage  which  is  associated  with  a 
tape  device. 

REFERENCE  FORMAT 

A format  that  provides  a standard  method  for  describing 
COBOL  source  programs. 
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RELATION  CHARACTER 

A character  that  belongs  to  the  following  set: 

Character  Meaning 

> GREATHER  THAN 

< LESS  THAN  (NOTE:  > and  < will  not  be 

used  in  CSC  COBOL.) 

- EQUAL  TO  (NOTE:  To  be  used  only  in 

the  COMPUTE  statement.) 

RELATION  CONDITION 

The  proposition,  for  which  a truth  value  can  be  determined, 
that  the  value  of  an  arithmetic  expression  or  data  item  has 
a specific  relationship  to  the  value  of  another  arithmetic 
expression  or  data  item. 

RELATIONAL  OPERATOR 

A reserved  word,  the  relation  character,  a group  of  con- 
secutive reserved  words,  or  a group  of  consecutive  reserved 
words,  and  the  relation  character  used  in  the  construction 
of  a relation  condition.  The  permissible  operators  and 
their  meanings  are: 

Relational  Operator 

IS  (NOT)  GREATER  THAN 

IS  (NOT)  LESS  THAN 

IS  (NOT)  EQUAL  TO 

EQUAL 

RELATIVE  FILE 

A file  with  relative  organization. 


Meaning 

GREATER  THAN  OR  NOT 
GREATER  THAN 
LESS  THAN  OR  NOT 
LESS  THAN 
EQUAL  TO  OR  NOT 
EQUAL  TO 
EQUAL  TO 
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RELATIVE  KEY 

A key  whose  contents  identify  a logical  record  in  a rela- 
tive file. 

RELATIVE  ORGANIZATION 

The  permanent  logical  file  structure  in  which  each  record  is 
uniquely  Identified  by  an  integer  value  greater  than  zero, 
which  specifies  the  records  logical  ordinal  position  in  the 


REMOTE  STATION 

A control  unit  and  one  or  more  input/output  devices  used  in 
teleprocessing  which  are  connected  to  the  central  computer 
through  common  carrier  facilities.  A remote  station  may  be 
either  terminal  device  or  another  computer. 

REPORT 

A presentation  of  a set  of  processed  data. 

REPORT  CLAUSE 

A clause,  in  the  REPORT  SECTION  of  the  DATA  DIVISION,  that 
appears  in  a REPORT  DESCRIPTION  entry  or  a REPORT  GROUP 
DESCRIPTION  entry. 

REPORT  DESCRIPTION  ENTRY 

An  entry  in  the  REPORT  SECTION  of  the  DATA  DIVISION  that  is 
composed  of  the  level  indicator  RD,  followed  by  a report- 
name,  followed  by  a set  of  report  clauses  as  required.  The 
COBOL  report  writer  is  not  a part  of  CSC  standard  COBOL. 

REPORT  FILE 

An  output  file  whose  FILE  DESCRIPTION  entry  contains  a RE- 
PORTS clause.  The  contents  of  a report  file  consist  of  re- 
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cords  that  are  written  under  control  of  the  Report  Writer 
Control  System. 

REPORT  GROUP 

In  the  REPORT  SECTION  of  the  DATA  DIVISION,  an  01  level- 
number  entry  and  its  subordinate  entries. 

REPORT  GROUP  DESCRIPTION  ENTRY 

An  entry  in  the  REPORT  SECTION  of  the  DATA  DIVISION  that  is 
composed  of  the  level-number  01,  an  optional  data-name,  a 
type  clause,  and  an  optional  set  of  report  clauses. 

REPORT  HEADING 

A report  group  that  is  presented  only  at  the  beginning  of  a 
report. 

REPORT  LINE 

A division  of  a page  representing  a row  of  horizontal  charac- 
ter positions.  Each  character  position  of  a report  line  is 
aligned  vertically  beneath  the  corresponding  character  posi- 
tion of  the  report  line  above  it.  Report  lines  are  numbered 
from  1,  by  1,  starting  at  the  top  of  the  page. 

REPORT-NAME 

A user-defined  word  that  names  a report  described  in  a RE- 
PORT DESCRIPTION  entry  within  the  REPORT  SECTION  of  the  DATA 
DIVISION. 

REPORT  SECTION 

A section  of  the  DATA  DIVISION  that  contains  one  or  more  RE- 
PORT DESCRIPTION  entries  and  their  associated  REPORT  GROUP 
DESCRIPTION  entries. 


* 

* 


o 


Al-37 


ATTACHMENT  1 


CSCM  18-1-1 


1 FEB  79 


GLOSSARY  (Cont.) 

REPORT  WRITER  CONTROL  SYSTEM  (RWCS) 

An  object  time  control  system,  provided  by  the  implementor, 
that  accomplishes  the  construction  of  reports. 

REPORT  WRITER  LOGICAL  RECORD 

A record  that  consists  of  the  Report  Writer  print  line  and 
associated  control  information  necessary  for  its  selection 
and  vertical  positioning. 

RESERVED  WORD 

A COBOL  word  specified  in  the  list  of  words  which  may  be 
used  in  a COBOL  source  program,  but  which  must  not  appear 
in  the  programs  as  user-defined  words  or  system-names. 

ROUTINE-NAME 

A user-defined  word  that  identifies  a procedure  written  in  a 
language  other  than  COBOL. 

RUN  UNIT 

A set  of  one  or  more  object  programs  which  function,  at  ob- 
ject time,  as  a unit  to  provide  problem  solutions. 

SECTION 

A set  of  zero,  one,  or  more  paragraphs  or  entries,  called  a 
section  body,  the  first  of  which  is  preceded  by  a section 
header.  Each  section  consists  of  the  section  header  and 
the  related  section  body. 

SECTION  HEADER 

A combination  of  words  followed  by  a period  and  a space  that 
Indicates  the  beginning  of  a section  in  the  ENVIRONMENT, 
DATA,  and  PROCEDURE  DIVISION. 
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In  the  ENVIRONMENT  and  DATA  DIVISION,  a section  header  is 
composed  of  reserved  words  followed  by  a period  and  a space. 
The  permissible  section  headers  are: 

In  the  ENVIRONMENT  DIVISION: 

CONFIGURATION  SECTION. 

INPUT-OUTPUT  SECTION. 

In  the  DATA  DIVISION: 

FILE  SECTION. 

WORKING- STORAGE  SECTION. 

LINKAGE  SECTION. 

COMMUNICATION  SECTION. 

REPORT  SECTION. 

In  the  PROCEDURE  DIVISION,  a section  header  is  com- 
posed of  a section-name,  followed  by  the  reserved 
word  SECTION,  followed  by  a segment-number  (optional), 
followed  by  a period  and  a space. 

SECTION-NAME 

A user-defined  word  which  names  a section  in  the  PROCEDURE 
DIVISION. 

SEGMENT-NUMBER 

A user-defined  word  which  classifies  sections  in  the  PRO- 
CEDURE DIVISION  for  purposes  of  segmentation.  Segment-num- 
bers may  contain  only  the  characters  '0',  ' 1 ' '9’. 

A segment-number  may  be  expressed  either  as  a one  or  two 
digit  number. 

SENTENCE 

A sequence  of  one  or  more  statements,  the  last  of  which  is 
terminated  by  a period  followed  by  a space. 
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SEPARATOR 

A punctuation  character  used  to  delimit  character-string. 
SEQUENTIAL  ACCESS 

An  access  mode  in  which  logical  records  are  obtained  from 
or  placed  into  a file  in  a consecutive  predecessor-to- 
successor  logical  record  sequence  determined  by  the  order  of 
records  in  the  file. 

SEQUENTIAL  FILE 

A file  with  sequential  organization. 

SEQUENTIAL  ORGANIZATION 

The  permanent  logical  file  structure  in  which  a record  is 
identified  by  a predecessor-to-successor  relationship  es- 
tablished when  the  record  is  placed  into  the  file. 

SEQUENTIAL  PROCESSING 

A term  used  synonymously  with  SYNCHRONOUS  PROCESSING. 

SIGN  CONDITION 

The  proposition  for  which  a truth  value  can  be  determined 
that  the  algebraic  value  of  a data  item  or  an  arithmetic  ex- 
pression is  either  positive,  negative,  or  equal  to  zero. 

SIMPLE  CONDITION 

Any  single  condition  chosen  from  the  set: 

relation  condition 
class  condition 
condition-name  condition 
switch-status  condition 
sign  condition 
message  condition 
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SLACK  BYTES 

Bytes  which  are  inserted  between  data  items  or  between  re- 
cords in  order  to  properly  align  some  numeric  items.  Slack 
bytes  are  in  some  cases  automatically  inserted  by  the  com- 
piler and  in  some  cases  is  the  responsibility  of  the  progra- 
mer  to  insert  them.  The  SYNCHRONIZED  clause  instructs  the 
compiler  to  Insert  slack  bytes  for  proper  alignment. 

SORT  FILE 

A collection  of  records  to  be  sorted  by  a SORT  statement. 

The  sort  file  is  created  and  can  be  used  by  the  sort  func- 
tion only. 

SORT-FILE  NAME 

A data-name  which  is  used  to  identify  a sort  file. 

SORT-KEY 

The  fields  in  a record  which  determine,  or  are  used  as  a 
basis  for  determining,  the  sequence  of  records  in  a file. 

SORT-WORK-FILE 

A collection  of  records  used  in  a sorting  operation  as  it 
exists  on  an  intermediate  device(s). 

SORT-MERGE  FILE  DESCRIPTION  EN'TIY 

An  entry  in  the  FILE  SECTION  of  the  DATA  DIVISION  that  is 
composed  of  the  level  indicator  SD,  followed  by  a file-name, 
and  then  followed  by  a set  of  file  clauses  as  required. 

SOURCE 

The  symbolic  identification  of  the  originator  of  a trans- 
mission to  a queue. 
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SOURCE-COMPUTER 


The  name  of  an  ENVIRONMENT  DIVISION  paragraph  in  which  the 
computer  environment,  within  which  the  source  program  is 
compiled,  is  described. 

SOURCE  ITEM 

An  identifier  designated  by  a SOURCE  clause  that  provides 
the  value  of  a printable  item. 

SOURCE  PROGRAM 

A syntactically  correct  set  of  COBOL  statements  beginning 
with  an  IDENTIFICATION  DIVISION  and  ending  with  the  end  of 
the  PROCEDURE  DIVISION. 

SPECIAL  CHARACTER 

A character  that  belongs  to  the  following  set: 


Character 


+ PLUS  SIGN 

MINUS  SIGN 

* ASTERISK 

/ SLASH 

» EQUAL  SIGN 

$ CURRENCY  SIGN 


COMMA 

SEMICOLON 

PERIOD 

QUOTATION  MARK 
LEFT  PARENTHESIS 
RIGHT  PARENTHESIS 

GREATER  THAN  SYMBOL  (Not  CSC  COBOL) 

LESS  THAN  SYMBOL  (Not  CSC  COBOL) 

EXCLAMATION  POINT 

NUMBER  SIGN 

PERCENT 

AMPERSAND 
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Character  Meaning 

' APOSTROPHE 

: COLON 

? QUESTION  MARK 

@ COMMERCIAL  AT 

SPECIAL-CHARACTER  WORD 

A reserved  word  which  is  an  arithmetic  operator  or  a rela- 
tion character. 

SPECIAL-NAMES 

The  name  of  an  ENVIRONMENT  DIVISION  paragraph  in  which  im- 
plementor-names are  related  to  user-specified  mnemonic -names. 

SPECIAL  REGISTERS 

Certain  compiler  generated  storage  areas  whose  primary  use 
is  to  store  information  produced  in  conjuction  with  the  use 
of  specific  COBOL  features. 

STANDARD  DATA  FORMAT 

The  concept  used  in  describing  data  in  a COBOL  DATA  DIVISION 
under  which  the  characteristics  or  properties  of  the  data 
are  expressed  in  a form  oriented  to  the  appearance  of  the 
data  on  a printed  page  of  infinite  length  and  breadth,  ra- 
ther than  a form  oriented  to  the  manner  in  which  the  data 
is  stored  internally  in  the  computer,  or  on  a particular 
external  medium. 

STATEMENT 

A syntactically  valid  combination  of  words  and  symbols 
written  in  the  PROCEDURE  DIVISION  beginning  with  a verb. 

SUB-QUEUE 

A logical  hierarchical  division  of  a queue. 
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SUBJECT  OF  ENTRY 

An  operand  or  reserved  word  that  appears  Immediately  follow- 
ing the  level  indicator  or  the  level-number  in  the  DATA 
DIVISION  entry. 

SUBPROGRAM 

A term  used  synonymously  with  the  term  CALLed  program. 
SUBSCRIPT 

An  integer  whose  value  identifies  a particular  element  in  a 
table. 

SUBSCRIPTED  DATA-NAME 

An  identifier  that  is  composed  of  a dat.'-name  followed  by 
one  or  more  subscripts  enclosed  in  parentheses. 

SUM  COUNTER 

A signed  numeric  data  item  established  by  a SUM  clause  in  the 
REPORT  SECTION  of  the  DATA  DIVISION.  The  sum  counter  is 
used  by  the  Report  Writer  Control  System  to  contain  the 
result  of  designated  summing  operations  that  take  place 
during  production  of  a report. 

SWITCH-STATUS  CONDITION 

The  proposition,  for  which  a truth  value  can  be  determined, 
that  an  implementor-defined  switch,  capable  of  being  set  to 
an  'on'  or  'off'  status,  has  been  set  to  a specific  status. 

SWITCHED  LINE 

A communication  line,  used  in  teleprocessing,  for  which  no 
single  continuous  path  between  the  central  computer  and  the 
remote  station  exists.  Several  alternative  paths  are  also 
available  for  transmission.  The  common  carrier  switching 
equipment  is  used  to  select  the  proper  path. 
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SYNCHRONOUS  PROCESSING 

A processing  method  in  which  each  event  or  the  performance 
of  each  operation  starts  as  a result  of  a signal  generated 
by  a clock  (constrasted  with  asynchronous  processing). 

SYSIN 

The  system  logical  input  device.  (Vendor  extension). 

SYSOUT 

The  system  logical  output  device.  (Vendor  extension). 
SYSPUNCH 

The  system  logical  punch  device.  (Vendor  extension). 
SYSTEM-NAME 

A COBOL  word  which  is  used  to  communicate  with  the  operating 
environment . 


TABLE 


A set  of  logically  consecutive  items  of  data  that  are  de- 
fined in  the  DATA  DIVISION  by  means  of  the  OCCURS  clause. 

TABLE  ELEMENT 

A data-item  that  belongs  to  the  set  of  repeated  items  com- 
prising a table. 


TALLY 


One  of  several  special  registers.  (Vendor  extension). 
TERMINAL 

The  originator  of  a transmission  to  a queue,  or  the  receiver 
of  a transmission  from  a queue. 
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TEST  CONDITION 

A statement  which  may  be  either  true  or  false  depending  on 
the  existing  circumstance  at  the  time  of  the  test. 

TEXT-WORD 

Any  character-string  or  separator  except  space,  in  a COBOL 
library  or  in  pseudo-text. 

TRAILER  LABEL 

A record  used  to  indicate  the  ending  of  a physical  file  or 
of  a volume. 

TRUTH  VALUE 

The  representation  of  the  result  of  the  evaluation  of  a 
condition  in  terms  of  one  of  two  values:  true  or  false. 

U-MODE  RECORDS 

Records  of  which  the  length  is  unspecified.  They  may  be 
either  fixed  or  variable.  There  is  only  one  record  per 
block. 

UNARY  OPERATOR 

A plus  (+)  or  a minus  (-)  sign,  which  precedes  a variable 
or  a left  parenthesis  in  an  arithmetic  expression  and  which 
has  the  effect  of  multiplying  the  expression  by  +1  or  -1 
respectively. 


UNIT 


A module  of  mass  storage  the  dimensions  of  which  are  deter- 
mined by  each  implementor. 
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USER-DEFINED  WORD 

A COBOL  word  that  must  be  supplied  by  the  user  to  satisfy 
the  format  of  a clause  or  statement. 

V-MODE  RECORDS 

Records  of  which  the  length  is  variable.  Blocks  may  contain 
more  than  one  record.  Each  record  contains  a field  which 
specifies  its  length  and  each  block  contains  a field  to 
specify  its  length. 

VARIABLE 

A data-item  whose  value  may  be  changed  by  execution  of  the 
object  program.  A variable  used  in  an  arithmetic  expression 
must  be  a numeric  elementary  item. 

VARIABLE-LENGTH  DATA  ITEM 

A variable-length  data  item  is  a data  item  which,  although 
physically  fixed  in  size,  contains  a logically  variable 
number  of  characters. 

VARIABLE-OCCURRENCE  DATA  ITEM 

A varialbe  occurrence  data  item  is  a table  element  which  is 
repeated  a variable  number  of  times.  Such  an  item  must 
contain  an  OCCURS  clause  or  be  subordinate  to  such  an  item. 


VERB 


A word  that  expresses  an  action  to  be  taken  by  a COBOL 
compiler  or  object  program. 

VOLATILITY 

In  the  case  of  a volatile  file,  the  quality  of  being  change- 
able, transient,  temporary  or  unpredictable  in  nature. 


Al-47 


ATTACHMENT 


CSCM  18-1-1 


1 FEB  78 


GLOSSARY  (Cone.) 

VOLUME 

A module  which  is  externally  stored.  For  tape,  it  is  a reel 
for  mass  storage  devices,  it  is  a unit. 

VOLUME  SWITCH  PROCEDURES 

Automatic  procedures  that  are  executed  at  the  end  of  a reel 
or  unit  before  an  end-of-file  condition  is  reached. 


WORD 


A character-string  of  not  more  than  30  characters  which 
forms  a user-defined  word,  a system-name,  or  a reserved 
word. 

WORKING-STORAGE  SECTION 

The  section  of  the  DATA  DIVISION  that  describes  WORKING- 
STORAGE  data  items  and  constants,  composed  either  of  non- 
contiguous items  or  of  WORKING-STORAGE  records  or  of  both. 
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This  list  of  words  includes  the  reserved  words  published  in  the 
COBOL  Journal  of  Development  and  the  reserved  words  designated  by 
IBM,  CDC,  and  Honeywell  in  their  various  COBOL  compilers.  These 
words  should  not  be  used  except  as  provided  for  in  this  manual  to 
maintain  program  transferability  between  vendors  ADP  hardware  and 
compilers.  The  reserved  words  were  removed  from  the  former 
PROGRAMING  PROCEDURES  MANUAL  (PPM),  paragraph  A. 2. 3. 2. 1.6,  to  make 
up  this  ATTACHMENT. 
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ABOUT 

ACCEPT 

ACCEPT-CARD- READER 

ACCEPT-CONSOLE 

ACCESS 

ACCESS-PRIVACY 

ACCOUNTING 

ACTUAL 

ADD 

ADDRESS 

ADVANCING 

AFTER 

ALL 

ALPHABETIC 

ALPHANUMERIC 

ALPHANUMERIC-EDITED 

ALTER 

AN 

AND 

APPLY 

ARE 

AREA 

AREAS 

ASCENDING 

ASSIGN 

AT 

AUTHOR 

AUX-CHANNEL 

AUX-CHANNELS 

BASIS 

BCD 

BEFORE 

BEGINNING 

BEGIN/PROG/AT 

BINARY 

BIT 

BITS 

BLANK 

BLOCK 

BLOCKS 

BUILD 

BY 


CALL 

CALLEE-TASK 

CANCEL 

CARD-PUNCH 

CD 

CDC 

CF 

CH 

CHANGED 

CHANNEL 

CHANNELS 

CHARACTER 

CHARACTERS 

CHECK 

CLASS 

CLOCK-UNITS 

CLOSE 

COBOL 

CODE 

COLUMN 

COM-REG 

COMMA 

COMMON-STORAGE 

COMMON-W-STORAGE 

COMP 

COMP-1 

COMP- 2 

COMP- 3 

COMP-4 

COMP-n 

COMPASS 

COMPUTATIONAL 

COMPUTATIONAL- 1 

COMPUTATIONAL- 2 

COMPUTATIONAL- 3 

COMPUTATIONAL- 4 

COMPUTE 

COMPUTER 

CONFIGURATION 

CONSOLE 

CONSOLE-KEYBOARD 

CONSOLE-TYPEWRITER 
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CONSTANT 

CONTAINS 

CONTIGUOUS 

CONTINUE/ PROG/  AT 

CONTROL 

CONTROLS 

COPY 

CORE-INDEX 

CORR 

CORRESPONDING 

COUNT 

CRT 

CSP 

CURRENCY 

CURRENT-DATE 

CYL- INDEX 

CYL-OVERFLOW 

C01 

C02 

C03 

C04 

C05 

C06 

C07 

C08 

C09 

C10 

Cll 

C12 

DATA 

DATE 

DATE-COMPILED 

DATE-WRITTEN 

DAY 

DAY-OF-WEEK 

DE 

DEBUG 

DEBUG-CONTENTS 
DEBUG- ITEM 
DEBUG-LINE 
DEBUG-NAME 
DEBUG- SUB- I 


DEBUG-SUB-2 

DEBUG-SUB-3 

DEBUG-SWITCH 

DEBUGGING 

DECIMAL 

DECIMAL-POINT 

DECLARATIVES 

DELETE 

DELIMITED 

DELIMITER 

DENSITY 

DEPENDING 

DEPTH 

DESCENDING 

DESTINATION 

DETAIL 

DIGIT 

DIGITS 

DISABLE 

DISK 

DISP 

DISPLAY 

DISPLAY-CONSOLE 

DISPLAY-ST 

DISPLAY-n 

DISPLAY-PRINTER 

DIVIDE 

DIVISION 

DOLLAR 

DOUBLE-BUFFER 

DOUBLE-FLOAT 

DOWN 

EDITION  NUMBER 

EJECT 

ELSE 

EMI 

ENABLE 

END 

END-OF-PAGE 

ENDING 

ENTER 

ENTRY 
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ENVIRONMENT 

EOP 

EQUAL 

EQUALS 

ERROR 

ESI 

ETI 

EVERY 

EVF- SIGNAL 

EXAMINE 

EXCEEDS 

EXHIBIT 

EXIT 

EXOR 

EXTENDED-SEARCH 

FD 

FILE 

FILE-CONTROL 

FILE- ID 

FILE-LIMIT 

FILE-LIMITS 

FILLER 

FINAL 

FIND 

FINIS 

FIRST 

FLOAT 

FLOATING-POINT 

FOOTING 

FOR 

FROM 

GEN-ND 

GENERATE 

GENERATION-NUMBER 

GET 

GIVING 

GO 

GOBACK 

GREATER 

GROUP 

H-nnn 

H-200-SPECIAL 


H- 2000-SPEC IAL 

HEADING 

HIGH 

HIGH-VALUE 

HIGH-VALUES 

HLT-CTL 

HOLD 

HYPER 

HONEYWELL- nnn 
HVF- SIGNAL 
1-0 

I-O-CONTROL 

ID 

IDENTIFICATION 

IF 

TN 

INCLUDE 

INDEX 

INDEX-n 

INDEXED 

INDEXED-SEQUENTIAL 

INDICATE 

INITIAL 

INITIATE 

INPUT 

INPUT-OUTPUT 

INPUT-RECOVERY 

INSERT 

INSPECT 

INSTALLATION 

INTO 

INVALID 

IS 

JUST 

JUSTIFIED 

KEY 

KEYS 

LABEL 

LABEL-RETURN 

LAST 

LEADING 

LEAVE 
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LEAVING 

i^EFT 

LENGTH 

LESS 

LIBRARY 

LIMIT 

LIMITS 

LINAGE 

LINAGE-COUNTER 

LINE 

LINE-COUNTER 

LINES 

LINKAGE 

LINKED- INDEX 

LOAD 

LOADER 

LOCATION 

LOCK 

LOW 

LOW-VALUE 

LOW-VALUES 

LOWER- BOUND 

LOWER-BOUNDS 

MASS-STORAGE-DEVICE 

MAS  S- STORAGE-DEVICES 

MASTER- INDEX 

MEMORY 

MERGE 

MESSAGE 

MODE 

MODIFICATION-PRIVACY 

MODULE 

MODULES 

MORE-LABELS 

MOVE 

MSD 

MULTIPLE 

MULTIPLY 

MULTIPLY-DIVIDE 

NAMED 

NEAC-280 

NEGATIVE 


NEXT 

N-nnn 

NO 

NO-TAPE-MARK 

NOMINAL 

NOT 

NOTE 

NSTD-REELS 

NUMBER 

NUMERIC 

NUMERIC-EDITED 

OBJECT-COMPUTER 

OBJECT- PROGRAM 

OCCURS 

OF 

OFF 

OH 

OMITTED 

ON 

OPEN 

OPTIONAL 

OR 

OTHERWISE 

OUTPUT 

OUTPUT-RECOVERY 

OV 

OVERFLOW 
OWNER- ID 
PAGE 

PAGE-COUNTER 

PAPER-TAPE-PUNCH 

PAPER-TAPE-READER 

PARTITIONED 

PASSWORD 

PERFORM 

PERMIT 

PF 

PH 

PIC 

PICTURE 

PLACE 

PLACES 
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PLUS 

REDEFINES 

POINT 

REEL 

POINTER 

REEL-NUMBER 

POSITION 

REFERENCES 

POSITIONING 

REL-CODE 

POSITIVE 

RELATIVE 

PREPARED 

RELEASE 

PRINT-SWITCH 

RELOAD 

PRINTER 

RELOCATABLE-CODE 

PRINTERS 

REMAINDER 

PRINTING 

REMARKS 

PRIORITY 

RENAMES 

PROCEDURE 

RENAMING 

PROCEDURES 

REORG-CRITERIA 

PROCEED 

REPLACE 

PROCESS 

REPLACING 

PROCESSING 

REPORT 

PROGRAM 

REPORTING 

PROGRAM- ID 

REPORTS 

PROTECT 

REPREAD 

PT-PUNCH 

RERUN 

PT-READER 

RESERVE 

PUNCH 

RESET 

PUNCHES 

RESIDENT-CYLINDER- INDEX 

QUOTE 

RETENTION-CYCLE 

QUOTES 

RETURN 

R-C-INDEX 

RETURN-CODE 

RANDOM 

REVERSED 

RANGE 

REWIND 

RD 

REWRITE 

READ 

RF 

READER 

RH 

READER-PUNCH 

RIGHT 

READER-PUNCHES 

ROUNDED 

READY 

RUN 

REASSIGNMENT 

RWCS 

RECEIVE 

SA 

RECORD 

SAME 

RECORD-OVERFLOW 

SCRATCH 

RECORDING 

SD 

RECORDS 

SEARCH 

RECORD-MARK 

SECTION 
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SECTOR 

STRING 

SECURITY 

SUB-QUEUE- 1 

SEEK 

SUB-QUEUE- 2 

SEGMENT 

SUB-QUEUE- 3 

SEGMENTATION 

SUB-QUEUE-n 

SEGMENTED 

SUBTRACT 

SELECT 

SUM 

SELECTED 

SWITCH 

SEND 

SUPERVISOR 

SENSE-SWITCH 

SUPPRESS 

SENTENCE 

SUSPEND 

SEPARATE 

SYMBOLIC 

SEQUENCED 

SYNC 

SEQUENTIAL 

SYNCHRONIZED 

SERVICE 

SYSIN 

SET 

SYSIPT 

SET-ID 

SYSLST 

SHORT-GAP 

SYSOUT 

SIGN 

SYSPCH 

SIGNED 

SYSPUNCH 

SIZE 

SYSTEM-DATE 

SKIP1 

SYSTEM-INPUT 

SKIP2 

SYSTEM-OUTPUT 

SKIP3 

SYSTEM-PUNCH 

SORT 

SYSTEM-TIME 

SORT-CORE-SIZE 

S01 

SORT-FILE-SIZE 

S02 

SORT-MERGE 

TABLE 

SORT-MESSAGE 

TALLY 

SORT-MODE- SIZE 

TALLYING 

SORT-RETURN 

TAPE 

SOURCE 

TAPE-UNIT 

SOURCE-COMPUTER 

TAPE-UNITS 

SPACE 

TERMINAL 

SPACES 

TERMINATE 

SPECIAL-NAMES 

TEXT 

STANDARD 

THAN 

STANDARD- 80 

THEN 

STANDARD- 120 

THROUGH 

START 

THRU 

STATUS 

TIME 

STOP 

TIME-OF-DAY 
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TIMES 

TO 

TOTALED 

TOTALING 

TRACE 

TRACK 

TRACK-AREA 

TRACK-LIMIT 

TRACKS 

TRAILING 

TRAILING-COUNT 

TRANSFORM 

TTY 

TYPE 

UNBANNERED 

UNEQUAL 

UNIT 

UNIT-OF-ALLOCATION 

UN ITS-OF-ALLOCAT ION 

UNSTRING 

UNTIL 

UP 

UPON 

UPPER-BOUND 

UPPER-BOUNDS 


USAGE 

USE 

USING 

VALUE 

VALUES 

VARYING 

VOL-S-NO 

VOLUME-SERIAL-NUMBER 

VERIFICATION 

VOLUME 

VOLUMES 

WHEN 

WITH 

WORDS 

WORKING-STORAGE 

WRITE 

WRITE-CHECKED 

WRITE-ONLY 

WRITE-VERIFY 

ZERO 

ZEROES 

ZEROS 

* 

** 

+ 

/ 
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This  index  provides  an  alphabetical  list  of  paragraph  headings  or 
titles  entered  in  the  text  of  the  PROGRAMING  PROCEDURES  MANUAL 
(PPM) . 

This  index  is  provided  for  an  easier  reference  and  a primary 
source  of  information  to  enable  and  assist  the  CSC  programer  to 
readily  locate  specific  data  in  the  text  of  the  manual.  All 
Glossary  definitions  (formally  listed  in  former  paragraph 
4. 2. 3. 1.1)  and  RESERVED  WORDS  (formerly  RESERVED  WORDS  LIST  in 
former  paragraph  4. 2. 3. 2. 1.6)  are  now  listed  in  ATTACHMENTS 
1 and  2 of  this  manual. 
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